@@ -1268,8 +1268,6 @@ speakerNotesSlideNumber pgNum fieldId =
12681268
12691269slideToSpeakerNotesElement :: PandocMonad m => Slide -> P m (Maybe Element)
12701270slideToSpeakerNotesElement slide
1271− | Slide _ _ mbNotes <- slide
1272− , Nothing <- mbNotes = return Nothing
12731271 | Slide _ _ mbNotes <- slide
12741272 , Just (SpeakerNotes paras) <- mbNotes = do
12751273 master <- getNotesMaster
@@ -1304,6 +1302,7 @@ slideToSpeakerNotesElement slide
13041302 ]
13051303 ]
13061304 ]
1305+slideToSpeakerNotesElement _ = return Nothing
13071306
13081307-----------------------------------------------------------------------
13091308
@@ -1465,8 +1464,6 @@ slideToSpeakerNotesEntry slide = do
14651464
14661465slideToSpeakerNotesRelElement :: PandocMonad m => Slide -> P m (Maybe Element)
14671466slideToSpeakerNotesRelElement slide
1468− | Slide _ _ mbNotes <- slide
1469− , Nothing <- mbNotes = return Nothing
14701467 | Slide _ _ mbNotes <- slide
14711468 , Just _ <- mbNotes = do
14721469 idNum <- slideNum slide
@@ -1482,6 +1479,7 @@ slideToSpeakerNotesRelElement slide
14821479 , ("Target", "../notesMasters/notesMaster1.xml")
14831480 ] ()
14841481 ]
1482+slideToSpeakerNotesRelElement _ = return Nothing
14851483
14861484slideToSpeakerNotesRelEntry :: PandocMonad m => Slide -> P m (Maybe Entry)
14871485slideToSpeakerNotesRelEntry slide = do