From 2f5cca85fa1842a3265aed949502f5811ead51a6 Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Wed, 3 Jan 2018 11:16:41 -0500
Subject: Powerpoint writer: Fix compiler error (again)
The record syntax in a pattern match seems to be confusing the 8.X
compilers. Stop using it.
---
src/Text/Pandoc/Writers/Powerpoint.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
(limited to 'src/Text/Pandoc/Writers')
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
--
cgit v1.2.3