Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Powerpoint writer: code cleanup

Browse source 
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.
This commit is contained in:
Jesse Rosenthal 2018-03-30 13:53:04 -04:00
parent f03ea3ff87
commit d0dc0c353e
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Text/Pandoc/Writers/Powerpoint/Presentation.hs
View file

@ -629,10 +629,7 @@ blocksToSlide' _ (blk : blks) spkNotes
, "columns" `elem` classes , "columns" `elem` classes
, Div (_, clsL, _) blksL : Div (_, clsR, _) blksR : remaining <- divBlks , Div (_, clsL, _) blksL : Div (_, clsR, _) blksR : remaining <- divBlks
, "column" `elem` clsL, "column" `elem` clsR = do , "column" `elem` clsL, "column" `elem` clsR = do
unless (null blks) mapM_ (addLogMessage . BlockNotRendered) (blks ++ remaining)
(mapM_ (addLogMessage . BlockNotRendered) blks >> return ())
unless (null remaining)
(mapM_ (addLogMessage . BlockNotRendered) remaining >> return ())
mbSplitBlksL <- splitBlocks blksL mbSplitBlksL <- splitBlocks blksL
mbSplitBlksR <- splitBlocks blksR mbSplitBlksR <- splitBlocks blksR
let blksL' = case mbSplitBlksL of let blksL' = case mbSplitBlksL of