summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2018-02-18 17:44:09 -0500
committerJesse Rosenthal <jrosenthal@jhu.edu>2018-02-18 17:44:09 -0500
commitb4f43f879908592ebf28adc772127c46b0c1734d (patch)
treebc583fb2733a25f6e52d1ce18b44fa389581be75 /src
parent4a6000c7d06708f0bd939261f8c7b401c652bc69 (diff)
Powerpoint writer: fix compiler complaints.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/Powerpoint/Output.hs18
1 files changed, 11 insertions, 7 deletions
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"