From 7e2c75c8653eb9ec64a19ac7d6f4677936fbb13b Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 17 Jan 2018 12:30:15 +0300
Subject: Muse reader: do not remove trailing whitespace from <code>

---
 src/Text/Pandoc/Readers/Muse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index d378fe676..f0ac81f01 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -728,7 +728,7 @@ code = try $ do
 
 codeTag :: PandocMonad m => MuseParser m (F Inlines)
 codeTag = do
-  (attrs, content) <- parseHtmlContentWithAttrs "code" anyChar
+  (attrs, content) <- htmlElement "code"
   return $ return $ B.codeWith attrs content
 
 inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines)
-- 
cgit v1.2.3