From b4f43f879908592ebf28adc772127c46b0c1734d Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Sun, 18 Feb 2018 17:44:09 -0500
Subject: Powerpoint writer: fix compiler complaints.

---
 src/Text/Pandoc/Writers/Powerpoint/Output.hs | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Writers/Powerpoint/Output.hs b/src/Text/Pandoc/Writers/Powerpoint/Output.hs
index bc9c3193a..752c81857 100644
--- a/src/Text/Pandoc/Writers/Powerpoint/Output.hs
+++ b/src/Text/Pandoc/Writers/Powerpoint/Output.hs
@@ -1267,12 +1267,14 @@ speakerNotesSlideNumber pgNum fieldId =
   ]
 
 slideToSpeakerNotesElement :: PandocMonad m => Slide -> P m (Maybe Element)
-slideToSpeakerNotesElement sld@(Slide _ _ mbNotes)
-  | Nothing                   <- mbNotes = return Nothing
-  | Just (SpeakerNotes paras) <- mbNotes = do
+slideToSpeakerNotesElement slide
+  | Slide _ _ mbNotes <- slide
+  , Nothing <- mbNotes = return Nothing
+  | Slide _ _ mbNotes <- slide
+  , Just (SpeakerNotes paras) <- mbNotes = do
       master <- getNotesMaster
       fieldId  <- getSlideNumberFieldId master
-      num <- slideNum sld
+      num <- slideNum slide
       let imgShape = speakerNotesSlideImage
           sldNumShape = speakerNotesSlideNumber num fieldId
       bodyShape <- speakerNotesBody paras
@@ -1462,9 +1464,11 @@ slideToSpeakerNotesEntry slide = do
       _ -> return Nothing
 
 slideToSpeakerNotesRelElement :: PandocMonad m => Slide -> P m (Maybe Element)
-slideToSpeakerNotesRelElement slide@(Slide _ _ mbNotes)
-  | Nothing <- mbNotes = return Nothing
-  | Just _ <- mbNotes = do
+slideToSpeakerNotesRelElement slide
+  | Slide _ _ mbNotes <- slide
+  , Nothing <- mbNotes = return Nothing
+  | Slide _ _ mbNotes <- slide
+  , Just _ <- mbNotes = do
       idNum <- slideNum slide
       return $ Just $
         mknode "Relationships"
-- 
cgit v1.2.3