diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-06 01:35:11 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-06 01:35:41 +0300 |
| commit | 5b3247d0b28b5cdd11bc82f2381bbf688d557a07 (patch) | |
| tree | df1f2f5282c87928e9b61c3a78cc175a996e9389 /src/Text/Pandoc/Readers/Muse.hs | |
| parent | fe5fd12812e657c720cc2c2ddff314ad7c1547fd (diff) | |
Muse reader: rename "literal" to "literalTag"
Diffstat (limited to 'src/Text/Pandoc/Readers/Muse.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 6 |
1 files 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 |