From 52ac58596716dd5e202c19f86fb14ded931ebeb1 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 23 Jun 2020 13:04:42 -0700 Subject: Remove redundant pattern match in pptx writer. --- src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 3 --- 1 file changed, 3 deletions(-) (limited to 'src/Text/Pandoc/Writers') diff --git a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs index a75b04d2e..c6d76424d 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs @@ -370,9 +370,6 @@ inlineToParElems (Note blks) = do modify $ \st -> st { stNoteIds = M.insert curNoteId blks notes } local (\env -> env{envRunProps = (envRunProps env){rLink = Just $ InternalTarget endNotesSlideId}}) $ inlineToParElems $ Superscript [Str $ tshow curNoteId] -inlineToParElems (Underline ils) = - local (\r -> r{envRunProps = (envRunProps r){rPropUnderline=True}}) $ - inlinesToParElems ils inlineToParElems (Span _ ils) = inlinesToParElems ils inlineToParElems (Quoted quoteType ils) = inlinesToParElems $ [Str open] ++ ils ++ [Str close] -- cgit v1.2.3