Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

FB2 writer: replace concatMap with cMap

Browse source
This commit is contained in:
Alexander Krotov 2017-10-09 19:04:10 +03:00
parent 81d28412d0
commit 4bfcbbfc30
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/Text/Pandoc/Writers/FB2.hs
View file

@ -572,15 +572,15 @@ list = (:[])
-- | Convert an 'Inline' to plaintext.
plain :: Inline -> String
plain (Str s) = s
plain (Emph ss) = concatMap plain ss
plain (Span _ ss) = concatMap plain ss
plain (Strong ss) = concatMap plain ss
plain (Strikeout ss) = concatMap plain ss
plain (Superscript ss) = concatMap plain ss
plain (Subscript ss) = concatMap plain ss
plain (SmallCaps ss) = concatMap plain ss
plain (Quoted _ ss) = concatMap plain ss
plain (Cite _ ss) = concatMap plain ss -- FIXME
plain (Emph ss) = cMap plain ss
plain (Span _ ss) = cMap plain ss
plain (Strong ss) = cMap plain ss
plain (Strikeout ss) = cMap plain ss
plain (Superscript ss) = cMap plain ss
plain (Subscript ss) = cMap plain ss
plain (SmallCaps ss) = cMap plain ss
plain (Quoted _ ss) = cMap plain ss
plain (Cite _ ss) = cMap plain ss -- FIXME
plain (Code _ s) = s
plain Space = " "
plain SoftBreak = " "
@ -588,7 +588,7 @@ plain LineBreak = "\n"
plain (Math _ s) = s
plain (RawInline _ _) = ""
plain (Link _ text (url,_)) = concat (map plain text ++ [" <", url, ">"])
plain (Image _ alt _) = concatMap plain alt
plain (Image _ alt _) = cMap plain alt
plain (Note _) = "" -- FIXME
-- | Create an XML element.