diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-10-09 19:04:10 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-10-09 19:04:10 +0300 |
| commit | 4bfcbbfc3053524467fb6a59b012f8e121e7ac20 (patch) | |
| tree | caa322abea357a201c6b2ded7b095b371caa1505 /src/Text/Pandoc | |
| parent | 81d28412d0d1136b5e2efc1d612ab757a46aeb12 (diff) | |
| download | pandoc-4bfcbbfc3053524467fb6a59b012f8e121e7ac20.tar.gz | |
FB2 writer: replace concatMap with cMap
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/FB2.hs | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/Text/Pandoc/Writers/FB2.hs b/src/Text/Pandoc/Writers/FB2.hs index ae2d5a796..736e95636 100644 --- a/src/Text/Pandoc/Writers/FB2.hs +++ b/src/Text/Pandoc/Writers/FB2.hs @@ -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. |