4bfcbbf · typeable/pandoc

git.iko.soy/typeable/pandoc

FB2 writer: replace concatMap with cMap

commit4bfcbbfc3053524467fb6a59b012f8e121e7ac20 authorAlexander Krotov <ilabdsf@gmail.com> dateMon 9 Oct 2017, 19:04 (9 years ago) parent81d2841

1 file changed+10−10

unifiedsplit

src/Text/Pandoc/Writers/FB2.hs+10−10

@@ -572,15 +572,15 @@ list = (:[])

572572-- | Convert an 'Inline' to plaintext.

573573plain :: Inline -> String

574574plain (Str s) = s

575−plain (Emph ss) = concatMap plain ss

576−plain (Span _ ss) = concatMap plain ss

577−plain (Strong ss) = concatMap plain ss

578−plain (Strikeout ss) = concatMap plain ss

579−plain (Superscript ss) = concatMap plain ss

580−plain (Subscript ss) = concatMap plain ss

581−plain (SmallCaps ss) = concatMap plain ss

582−plain (Quoted _ ss) = concatMap plain ss

583−plain (Cite _ ss) = concatMap plain ss -- FIXME

575+plain (Emph ss) = cMap plain ss

576+plain (Span _ ss) = cMap plain ss

577+plain (Strong ss) = cMap plain ss

578+plain (Strikeout ss) = cMap plain ss

579+plain (Superscript ss) = cMap plain ss

580+plain (Subscript ss) = cMap plain ss

581+plain (SmallCaps ss) = cMap plain ss

582+plain (Quoted _ ss) = cMap plain ss

583+plain (Cite _ ss) = cMap plain ss -- FIXME

584584plain (Code _ s) = s

585585plain Space = " "

586586plain SoftBreak = " "

@@ -588,7 +588,7 @@ plain LineBreak = "\n"

588588plain (Math _ s) = s

589589plain (RawInline _ _) = ""

590590plain (Link _ text (url,_)) = concat (map plain text ++ [" <", url, ">"])

591−plain (Image _ alt _) = concatMap plain alt

591+plain (Image _ alt _) = cMap plain alt

592592plain (Note _) = "" -- FIXME

593593

594594-- | Create an XML element.