summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/FB2.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Writers/FB2.hs')
-rw-r--r--src/Text/Pandoc/Writers/FB2.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/FB2.hs b/src/Text/Pandoc/Writers/FB2.hs
index 6d61ea62c..cf96393ca 100644
--- a/src/Text/Pandoc/Writers/FB2.hs
+++ b/src/Text/Pandoc/Writers/FB2.hs
@@ -344,7 +344,7 @@ blockToXml (OrderedList a bss) = do
item <- cMapM blockToXml $ plainToPara $ indentBlocks (mrk ++ " ") bs
modify (\s -> s { parentListMarker = pmrk }) -- old parent marker
return item
- concat <$> (zipWithM mkitem markers bss)
+ concat <$> zipWithM mkitem markers bss
blockToXml (BulletList bss) = do
state <- get
let level = parentBulletLevel state
@@ -408,7 +408,7 @@ blockToXml Null = return []
paraToPlain :: [Block] -> [Block]
paraToPlain [] = []
paraToPlain (Para inlines : rest) =
- Plain (inlines) : Plain ([LineBreak]) : paraToPlain rest
+ Plain inlines : Plain [LineBreak] : paraToPlain rest
paraToPlain (p:rest) = p : paraToPlain rest
-- Replace plain text with paragraphs and add line break after paragraphs.
@@ -416,9 +416,9 @@ paraToPlain (p:rest) = p : paraToPlain rest
plainToPara :: [Block] -> [Block]
plainToPara [] = []
plainToPara (Plain inlines : rest) =
- Para (inlines) : plainToPara rest
+ Para inlines : plainToPara rest
plainToPara (Para inlines : rest) =
- Para (inlines) : Plain [LineBreak] : plainToPara rest
+ Para inlines : Plain [LineBreak] : plainToPara rest
plainToPara (p:rest) = p : plainToPara rest
-- Simulate increased indentation level. Will not really work