From 5b3247d0b28b5cdd11bc82f2381bbf688d557a07 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 6 Feb 2018 01:35:11 +0300
Subject: [PATCH] Muse reader: rename "literal" to "literalTag"
---
src/Text/Pandoc/Readers/Muse.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index f24ad9274..2ea4b1dd5 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -275,7 +275,7 @@ blockElements = choice [ mempty <$ blankline
, header
, example
, exampleTag
- , literal
+ , literalTag
, centerTag
, rightTag
, quoteTag
@@ -351,8 +351,8 @@ exampleTag = try $ do
(attr, contents) <- htmlElement "example"
return $ return $ B.codeBlockWith attr $ rchop $ intercalate "\n" $ dropSpacePrefix $ splitOn "\n" $ lchop contents
-literal :: PandocMonad m => MuseParser m (F Blocks)
-literal = do
+literalTag :: PandocMonad m => MuseParser m (F Blocks)
+literalTag = do
guardDisabled Ext_amuse -- Text::Amuse does not support <literal>
(return . rawBlock) <$> htmlElement "literal"
where