diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-03-30 13:53:04 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-03-30 13:53:04 -0400 |
| commit | d0dc0c353e9e11f1240d8e33c68151b500d62fe2 (patch) | |
| tree | bff4afcd75d8781305fddaff1f2ef446ffd32913 /src/Text/Pandoc/Writers | |
| parent | f03ea3ff876c8b36e40df67fd5f9fc4278b0f932 (diff) | |
| download | pandoc-d0dc0c353e9e11f1240d8e33c68151b500d62fe2.tar.gz | |
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.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 5 |
1 files changed, 1 insertions, 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 |