@@ -328,10 +328,8 @@ presHasSpeakerNotes :: Presentation -> Bool
328328presHasSpeakerNotes (Presentation _ slides) = not $ all (mempty ==) $ map slideSpeakerNotes slides
329329
330330curSlideHasSpeakerNotes :: PandocMonad m => P m Bool
331−curSlideHasSpeakerNotes = do
332− sldId <- asks envCurSlideId
333− notesIdMap <- asks envSpeakerNotesIdMap
334− return $ isJust $ M.lookup sldId notesIdMap
331+curSlideHasSpeakerNotes =
332+ M.member <$> asks envCurSlideId <*> asks envSpeakerNotesIdMap
335333
336334--------------------------------------------------
337335