diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-01-03 11:16:41 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-01-03 11:17:24 -0500 |
| commit | 2f5cca85fa1842a3265aed949502f5811ead51a6 (patch) | |
| tree | a4ecca7e015f7f7355a0acf3c51c611dfa6f5c13 /src/Text/Pandoc/Writers/Powerpoint.hs | |
| parent | 576ed3f41625c0b245ecbfdc47bf6d1878785365 (diff) | |
| download | pandoc-2f5cca85fa1842a3265aed949502f5811ead51a6.tar.gz | |
Powerpoint writer: Fix compiler error (again)
The record syntax in a pattern match seems to be confusing the 8.X
compilers. Stop using it.
Diffstat (limited to 'src/Text/Pandoc/Writers/Powerpoint.hs')
| -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 |