From 574104861f13997effb36f8e3483dfd7c7d01cd7 Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Sun, 18 Feb 2018 18:42:32 -0500
Subject: Powerpoint writer: Another attempt at avoiding compiler warnings.
---
src/Text/Pandoc/Writers/Powerpoint/Output.hs | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
(limited to 'src/Text/Pandoc/Writers/Powerpoint')
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
@@ -1268,8 +1268,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
@@ -1304,6 +1302,7 @@ slideToSpeakerNotesElement slide
]
]
]
+slideToSpeakerNotesElement _ = return Nothing
-----------------------------------------------------------------------
@@ -1465,8 +1464,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
@@ -1482,6 +1479,7 @@ slideToSpeakerNotesRelElement slide
, ("Target", "../notesMasters/notesMaster1.xml")
] ()
]
+slideToSpeakerNotesRelElement _ = return Nothing
slideToSpeakerNotesRelEntry :: PandocMonad m => Slide -> P m (Maybe Entry)
slideToSpeakerNotesRelEntry slide = do
--
cgit v1.2.3