From d0dc0c353e9e11f1240d8e33c68151b500d62fe2 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Fri, 30 Mar 2018 13:53:04 -0400 Subject: [PATCH] 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. --- src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs index 7a28268f9..c49943bcf 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs @@ -629,10 +629,7 @@ blocksToSlide' _ (blk : blks) spkNotes , "columns" `elem` classes , Div (_, clsL, _) blksL : Div (_, clsR, _) blksR : remaining <- divBlks , "column" `elem` clsL, "column" `elem` clsR = do - unless (null blks) - (mapM_ (addLogMessage . BlockNotRendered) blks >> return ()) - unless (null remaining) - (mapM_ (addLogMessage . BlockNotRendered) remaining >> return ()) + mapM_ (addLogMessage . BlockNotRendered) (blks ++ remaining) mbSplitBlksL <- splitBlocks blksL mbSplitBlksR <- splitBlocks blksR let blksL' = case mbSplitBlksL of