@@ -1267,12 +1267,14 @@ speakerNotesSlideNumber pgNum fieldId =
12671267 ]
12681268
12691269slideToSpeakerNotesElement :: PandocMonad m => Slide -> P m (Maybe Element)
1270−slideToSpeakerNotesElement sld@(Slide _ _ mbNotes)
1271− | Nothing <- mbNotes = return Nothing
1272− | Just (SpeakerNotes paras) <- mbNotes = do
1270+slideToSpeakerNotesElement slide
1271+ | Slide _ _ mbNotes <- slide
1272+ , Nothing <- mbNotes = return Nothing
1273+ | Slide _ _ mbNotes <- slide
1274+ , Just (SpeakerNotes paras) <- mbNotes = do
12731275 master <- getNotesMaster
12741276 fieldId <- getSlideNumberFieldId master
1275− num <- slideNum sld
1277+ num <- slideNum slide
12761278 let imgShape = speakerNotesSlideImage
12771279 sldNumShape = speakerNotesSlideNumber num fieldId
12781280 bodyShape <- speakerNotesBody paras
@@ -1462,9 +1464,11 @@ slideToSpeakerNotesEntry slide = do
14621464 _ -> return Nothing
14631465
14641466slideToSpeakerNotesRelElement :: PandocMonad m => Slide -> P m (Maybe Element)
1465−slideToSpeakerNotesRelElement slide@(Slide _ _ mbNotes)
1466− | Nothing <- mbNotes = return Nothing
1467− | Just _ <- mbNotes = do
1467+slideToSpeakerNotesRelElement slide
1468+ | Slide _ _ mbNotes <- slide
1469+ , Nothing <- mbNotes = return Nothing
1470+ | Slide _ _ mbNotes <- slide
1471+ , Just _ <- mbNotes = do
14681472 idNum <- slideNum slide
14691473 return $ Just $
14701474 mknode "Relationships"