git.iko.soy/typeable/pandoc
on master help sign in
Remove redundant pattern match in pptx writer.
commit52ac58596716dd5e202c19f86fb14ded931ebeb1 authorJohn MacFarlane <jgm@berkeley.edu> dateTue 23 Jun 2020, 13:04 (6 years ago) parent9b7282b
1 file changed−3
src/Text/Pandoc/Writers/Powerpoint/Presentation.hs−3
src/Text/Pandoc/Writers/Powerpoint/Presentation.hs−3
@@ -370,9 +370,6 @@ inlineToParElems (Note blks) = do
370370 modify $ \st -> st { stNoteIds = M.insert curNoteId blks notes }
371371 local (\env -> env{envRunProps = (envRunProps env){rLink = Just $ InternalTarget endNotesSlideId}}) $
372372 inlineToParElems $ Superscript [Str $ tshow curNoteId]
373−inlineToParElems (Underline ils) =
374− local (\r -> r{envRunProps = (envRunProps r){rPropUnderline=True}}) $
375− inlinesToParElems ils
376373inlineToParElems (Span _ ils) = inlinesToParElems ils
377374inlineToParElems (Quoted quoteType ils) =
378375 inlinesToParElems $ [Str open] ++ ils ++ [Str close]