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