Powerpoint writer: Fix compiler error (again)

The record syntax in a pattern match seems to be confusing the 8.X
compilers. Stop using it.

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