diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Output.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Output.hs b/src/Text/Pandoc/Writers/Powerpoint/Output.hs index 752c81857..9a9ede864 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Output.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Output.hs @@ -1269,8 +1269,6 @@ speakerNotesSlideNumber pgNum fieldId = slideToSpeakerNotesElement :: PandocMonad m => Slide -> P m (Maybe Element) slideToSpeakerNotesElement slide | Slide _ _ mbNotes <- slide - , Nothing <- mbNotes = return Nothing - | Slide _ _ mbNotes <- slide , Just (SpeakerNotes paras) <- mbNotes = do master <- getNotesMaster fieldId <- getSlideNumberFieldId master @@ -1304,6 +1302,7 @@ slideToSpeakerNotesElement slide ] ] ] +slideToSpeakerNotesElement _ = return Nothing ----------------------------------------------------------------------- @@ -1466,8 +1465,6 @@ slideToSpeakerNotesEntry slide = do slideToSpeakerNotesRelElement :: PandocMonad m => Slide -> P m (Maybe Element) slideToSpeakerNotesRelElement slide | Slide _ _ mbNotes <- slide - , Nothing <- mbNotes = return Nothing - | Slide _ _ mbNotes <- slide , Just _ <- mbNotes = do idNum <- slideNum slide return $ Just $ @@ -1482,6 +1479,7 @@ slideToSpeakerNotesRelElement slide , ("Target", "../notesMasters/notesMaster1.xml") ] () ] +slideToSpeakerNotesRelElement _ = return Nothing slideToSpeakerNotesRelEntry :: PandocMonad m => Slide -> P m (Maybe Entry) slideToSpeakerNotesRelEntry slide = do |