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(-)

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