aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2018-01-03 11:16:41 -0500
committerJesse Rosenthal <jrosenthal@jhu.edu>2018-01-03 11:17:24 -0500
commit2f5cca85fa1842a3265aed949502f5811ead51a6 (patch)
treea4ecca7e015f7f7355a0acf3c51c611dfa6f5c13
parent576ed3f41625c0b245ecbfdc47bf6d1878785365 (diff)
downloadpandoc-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.
-rw-r--r--src/Text/Pandoc/Writers/Powerpoint.hs6
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