diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint.hs b/src/Text/Pandoc/Writers/Powerpoint.hs index c43910741..12967a196 100644 --- a/src/Text/Pandoc/Writers/Powerpoint.hs +++ b/src/Text/Pandoc/Writers/Powerpoint.hs @@ -580,9 +580,9 @@ blocksToSlide' lvl ((Header n _ ils) : blks) -- in. slide <- blocksToSlide' lvl blks return $ case slide of - ContentSlide _ _ -> slide {contentSlideHeader = hdr} - TwoColumnSlide _ _ _ -> slide {twoColumnSlideHeader = hdr} - _ -> slide + ContentSlide _ cont -> ContentSlide hdr cont + TwoColumnSlide _ contL contR -> TwoColumnSlide hdr contL contR + slide' -> slide' blocksToSlide' _ (blk : blks) | Div (_, classes, _) divBlks <- blk , "columns" `elem` classes |