From f8e255053de09786c6c251e38387663750ddd3ac Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 7 Mar 2018 16:27:56 +0300
Subject: Muse writer: write empty inline lists as <verbatim></verbatim>

---
 src/Text/Pandoc/Writers/Muse.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 6cdd3e182..7a9bc8130 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -339,8 +339,10 @@ inlineListToMuse :: PandocMonad m
                  => [Inline]
                  -> StateT WriterState m Doc
 inlineListToMuse lst = do
-  lst' <- preprocessInlineList lst
-  hcat <$> mapM inlineToMuse (fixNotes $ normalizeInlineList lst')
+  lst' <- normalizeInlineList <$> preprocessInlineList lst
+  if null lst'
+    then pure "<verbatim></verbatim>"
+    else hcat <$> mapM inlineToMuse (fixNotes lst')
 
 -- | Convert Pandoc inline element to Muse.
 inlineToMuse :: PandocMonad m
-- 
cgit v1.2.3