aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-04-26 12:09:25 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-04-26 12:09:25 +0300
commit188f9f4c53179e474d9538927345583b8e91770e (patch)
treea65427fa9b29f8ddbaefab73f65024555b5203a6
parentdf452038f51a63c0731a327b969dc37b64ff1109 (diff)
downloadpandoc-188f9f4c53179e474d9538927345583b8e91770e.tar.gz
Simplify curSlideHasSpeakerNotes
-rw-r--r--src/Text/Pandoc/Writers/Powerpoint/Output.hs6
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
--------------------------------------------------