@@ -1268,8 +1268,6 @@ speakerNotesSlideNumber pgNum fieldId =
1269slideToSpeakerNotesElement :: PandocMonad m => Slide -> P m (Maybe Element)
1269slideToSpeakerNotesElement :: PandocMonad m => Slide -> P m (Maybe Element)
1270slideToSpeakerNotesElement slide
1270slideToSpeakerNotesElement slide
1271− | Slide _ _ mbNotes <- slide
1272− , Nothing <- mbNotes = return Nothing
1273 | Slide _ _ mbNotes <- slide
1271 | Slide _ _ mbNotes <- slide
1274 , Just (SpeakerNotes paras) <- mbNotes = do
1272 , Just (SpeakerNotes paras) <- mbNotes = do
1275 master <- getNotesMaster
1273 master <- getNotesMaster
@@ -1304,6 +1302,7 @@ slideToSpeakerNotesElement slide
1305+slideToSpeakerNotesElement _ = return Nothing
1308-----------------------------------------------------------------------
1307-----------------------------------------------------------------------
@@ -1465,8 +1464,6 @@ slideToSpeakerNotesEntry slide = do
1466slideToSpeakerNotesRelElement :: PandocMonad m => Slide -> P m (Maybe Element)
1465slideToSpeakerNotesRelElement :: PandocMonad m => Slide -> P m (Maybe Element)
1467slideToSpeakerNotesRelElement slide
1466slideToSpeakerNotesRelElement slide
1468− | Slide _ _ mbNotes <- slide
1469− , Nothing <- mbNotes = return Nothing
1470 | Slide _ _ mbNotes <- slide
1467 | Slide _ _ mbNotes <- slide
1471 , Just _ <- mbNotes = do
1468 , Just _ <- mbNotes = do
1472 idNum <- slideNum slide
1469 idNum <- slideNum slide
@@ -1482,6 +1479,7 @@ slideToSpeakerNotesRelElement slide
1482 , ("Target", "../notesMasters/notesMaster1.xml")
1479 , ("Target", "../notesMasters/notesMaster1.xml")
1482+slideToSpeakerNotesRelElement _ = return Nothing
1486slideToSpeakerNotesRelEntry :: PandocMonad m => Slide -> P m (Maybe Entry)
1484slideToSpeakerNotesRelEntry :: PandocMonad m => Slide -> P m (Maybe Entry)
1487slideToSpeakerNotesRelEntry slide = do
1485slideToSpeakerNotesRelEntry slide = do