2f5cca8 · typeable/pandoc

git.iko.soy/typeable/pandoc

Powerpoint writer: Fix compiler error (again)

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

commit2f5cca85fa1842a3265aed949502f5811ead51a6 authorJesse Rosenthal <jrosenthal@jhu.edu> dateWed 3 Jan 2018, 11:16 (9 years ago) parent576ed3f

1 file changed+3−3

unifiedsplit

src/Text/Pandoc/Writers/Powerpoint.hs+3−3

@@ -580,9 +580,9 @@ blocksToSlide' lvl ((Header n _ ils) : blks)

580580 -- in.

581581 slide <- blocksToSlide' lvl blks

582582 return $ case slide of

583− ContentSlide _ _ -> slide {contentSlideHeader = hdr}

584− TwoColumnSlide _ _ _ -> slide {twoColumnSlideHeader = hdr}

585− _ -> slide

583+ ContentSlide _ cont -> ContentSlide hdr cont

584+ TwoColumnSlide _ contL contR -> TwoColumnSlide hdr contL contR

585+ slide' -> slide'

586586blocksToSlide' _ (blk : blks)

587587 | Div (_, classes, _) divBlks <- blk

588588 , "columns" `elem` classes