diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-26 12:09:25 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-26 12:09:25 +0300 |
| commit | 188f9f4c53179e474d9538927345583b8e91770e (patch) | |
| tree | a65427fa9b29f8ddbaefab73f65024555b5203a6 | |
| parent | df452038f51a63c0731a327b969dc37b64ff1109 (diff) | |
| download | pandoc-188f9f4c53179e474d9538927345583b8e91770e.tar.gz | |
Simplify curSlideHasSpeakerNotes
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Output.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Output.hs b/src/Text/Pandoc/Writers/Powerpoint/Output.hs index dc5f1c9a9..c8a30d010 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Output.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Output.hs @@ -328,10 +328,8 @@ presHasSpeakerNotes :: Presentation -> Bool presHasSpeakerNotes (Presentation _ slides) = not $ all (mempty ==) $ map slideSpeakerNotes slides curSlideHasSpeakerNotes :: PandocMonad m => P m Bool -curSlideHasSpeakerNotes = do - sldId <- asks envCurSlideId - notesIdMap <- asks envSpeakerNotesIdMap - return $ isJust $ M.lookup sldId notesIdMap +curSlideHasSpeakerNotes = + M.member <$> asks envCurSlideId <*> asks envSpeakerNotesIdMap -------------------------------------------------- |