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