@@ -1267,12 +1267,14 @@ speakerNotesSlideNumber pgNum fieldId =
1269slideToSpeakerNotesElement :: PandocMonad m => Slide -> P m (Maybe Element)
1269slideToSpeakerNotesElement :: PandocMonad m => Slide -> P m (Maybe Element)
1270−slideToSpeakerNotesElement sld@(Slide _ _ mbNotes)
1270+slideToSpeakerNotesElement slide
1271+ | Slide _ _ mbNotes <- slide
1271− | Nothing <- mbNotes = return Nothing
1272+ , Nothing <- mbNotes = return Nothing
1273+ | Slide _ _ mbNotes <- slide
1272− | Just (SpeakerNotes paras) <- mbNotes = do
1274+ , Just (SpeakerNotes paras) <- mbNotes = do
1273 master <- getNotesMaster
1275 master <- getNotesMaster
1274 fieldId <- getSlideNumberFieldId master
1276 fieldId <- getSlideNumberFieldId master
1275− num <- slideNum sld
1277+ num <- slideNum slide
1276 let imgShape = speakerNotesSlideImage
1278 let imgShape = speakerNotesSlideImage
1277 sldNumShape = speakerNotesSlideNumber num fieldId
1279 sldNumShape = speakerNotesSlideNumber num fieldId
1278 bodyShape <- speakerNotesBody paras
1280 bodyShape <- speakerNotesBody paras
@@ -1462,9 +1464,11 @@ slideToSpeakerNotesEntry slide = do
1462 _ -> return Nothing
1464 _ -> return Nothing
1464slideToSpeakerNotesRelElement :: PandocMonad m => Slide -> P m (Maybe Element)
1466slideToSpeakerNotesRelElement :: PandocMonad m => Slide -> P m (Maybe Element)
1465−slideToSpeakerNotesRelElement slide@(Slide _ _ mbNotes)
1467+slideToSpeakerNotesRelElement slide
1468+ | Slide _ _ mbNotes <- slide
1466− | Nothing <- mbNotes = return Nothing
1469+ , Nothing <- mbNotes = return Nothing
1470+ | Slide _ _ mbNotes <- slide
1467− | Just _ <- mbNotes = do
1471+ , Just _ <- mbNotes = do
1468 idNum <- slideNum slide
1472 idNum <- slideNum slide
1469 return $ Just $
1473 return $ Just $
1470 mknode "Relationships"
1474 mknode "Relationships"