diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-06-23 13:04:42 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-06-23 13:04:42 -0700 |
| commit | 52ac58596716dd5e202c19f86fb14ded931ebeb1 (patch) | |
| tree | 0cfc895f6f23d9357b3dae653f25d266c6fda676 | |
| parent | 9b7282bb0f27546354b777d2174c26fb88c8e110 (diff) | |
| download | pandoc-52ac58596716dd5e202c19f86fb14ded931ebeb1.tar.gz | |
Remove redundant pattern match in pptx writer.
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 3 |
1 files changed, 0 insertions, 3 deletions
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] |