From ff31602267d2d8aebda319cd8f55ba5e1399bb1f Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 28 Jan 2018 23:39:31 +0300
Subject: Muse reader: parse inline <literal> without parseFromString

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

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index f15ea085f..6d9794f9e 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -704,8 +704,7 @@ codeTag = do
 inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines)
 inlineLiteralTag = do
   guardDisabled Ext_amuse -- Text::Amuse does not support <literal>
-  (attrs, content) <- parseHtmlContentWithAttrs "literal" anyChar
-  return $ return $ rawInline (attrs, content)
+  (return . rawInline) <$> htmlElement "literal"
   where
     -- FIXME: Emacs Muse inserts <literal> without style into all output formats, but we assume HTML
     format (_, _, kvs)        = fromMaybe "html" $ lookup "style" kvs
-- 
cgit v1.2.3