aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Writers/Muse.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 5f9b58aa1..af71405f3 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -380,12 +380,12 @@ renderInlineList :: PandocMonad m
-> StateT WriterState m Doc
renderInlineList True [] = pure "<verbatim></verbatim>"
renderInlineList False [] = pure ""
-renderInlineList start lst@(x:xs) = do r <- inlineToMuse x
- opts <- gets stOptions
- lst' <- renderInlineList (x == SoftBreak && writerWrapText opts == WrapPreserve) xs --hcat <$> mapM inlineToMuse xs
- if start && fixOrEscape x
- then pure ((text "<verbatim></verbatim>") <> r <> lst')
- else pure (r <> lst')
+renderInlineList start (x:xs) = do r <- inlineToMuse x
+ opts <- gets stOptions
+ lst' <- renderInlineList (x == SoftBreak && writerWrapText opts == WrapPreserve) xs --hcat <$> mapM inlineToMuse xs
+ if start && fixOrEscape x
+ then pure ((text "<verbatim></verbatim>") <> r <> lst')
+ else pure (r <> lst')
-- | Normalize and convert list of Pandoc inline elements to Muse.
inlineListToMuse'' :: PandocMonad m