@@ -37,7 +37,7 @@ module Text.Pandoc.Writers.Powerpoint.Presentation ( documentToPresentation
3737 , DocProps(..)
3838 , Slide(..)
3939 , Layout(..)
40− , Notes(..)
40+ , SpeakerNotes(..)
4141 , SlideId(..)
4242 , Shape(..)
4343 , Graphic(..)
@@ -180,7 +180,7 @@ data DocProps = DocProps { dcTitle :: Maybe String
180180
181181data Slide = Slide { slideId :: SlideId
182182 , slideLayout :: Layout
183− , slideNotes :: Maybe Notes
183+ , slideSpeakerNotes :: Maybe SpeakerNotes
184184 } deriving (Show, Eq)
185185
186186newtype SlideId = SlideId String
@@ -189,7 +189,7 @@ newtype SlideId = SlideId String
189189-- In theory you could have anything on a notes slide but it seems
190190-- designed mainly for one textbox, so we'll just put in the contents
191191-- of that textbox, to avoid other shapes that won't work as well.
192−newtype Notes = Notes [Paragraph]
192+newtype SpeakerNotes = SpeakerNotes {fromSpeakerNotes :: [Paragraph]}
193193 deriving (Show, Eq)
194194
195195data Layout = MetadataSlide { metadataSlideTitle :: [ParaElem]
@@ -806,11 +806,11 @@ applyToLayout f (TwoColumnSlide hdr contentL contentR) = do
806806applyToSlide :: Monad m => (ParaElem -> m ParaElem) -> Slide -> m Slide
807807applyToSlide f slide = do
808808 layout' <- applyToLayout f $ slideLayout slide
809− mbNotes' <- case slideNotes slide of
810− Just (Notes notes) -> (Just . Notes) <$>
811− mapM (applyToParagraph f) notes
809+ mbNotes' <- case slideSpeakerNotes slide of
810+ Just (SpeakerNotes notes) -> (Just . SpeakerNotes) <$>
811+ mapM (applyToParagraph f) notes
812812 Nothing -> return Nothing
813− return slide{slideLayout = layout', slideNotes = mbNotes'}
813+ return slide{slideLayout = layout', slideSpeakerNotes = mbNotes'}
814814
815815replaceAnchor :: ParaElem -> Pres ParaElem
816816replaceAnchor (Run rProps s)