d0dc0c3 · typeable/pandoc

git.iko.soy/typeable/pandoc

Powerpoint writer: code cleanup

Since we're using mapM_ instead of mapM, we can get rid of the return statement. We also don't need the `unless` statement anymore.

commitd0dc0c353e9e11f1240d8e33c68151b500d62fe2 authorJesse Rosenthal <jrosenthal@jhu.edu> dateFri 30 Mar 2018, 13:53 (9 years ago) parentf03ea3f

1 file changed+1−4

unifiedsplit

src/Text/Pandoc/Writers/Powerpoint/Presentation.hs+1−4

@@ -629,10 +629,7 @@ blocksToSlide' _ (blk : blks) spkNotes

629629 , "columns" `elem` classes

630630 , Div (_, clsL, _) blksL : Div (_, clsR, _) blksR : remaining <- divBlks

631631 , "column" `elem` clsL, "column" `elem` clsR = do

632− unless (null blks)

633− (mapM_ (addLogMessage . BlockNotRendered) blks >> return ())

634− unless (null remaining)

635− (mapM_ (addLogMessage . BlockNotRendered) remaining >> return ())

632+ mapM_ (addLogMessage . BlockNotRendered) (blks ++ remaining)

636633 mbSplitBlksL <- splitBlocks blksL

637634 mbSplitBlksR <- splitBlocks blksR

638635 let blksL' = case mbSplitBlksL of