diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-28 23:39:31 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-29 04:58:43 +0300 |
| commit | ff31602267d2d8aebda319cd8f55ba5e1399bb1f (patch) | |
| tree | 4a58161e26ed631d9dbee916e50f419ffb702fff /src | |
| parent | 60b2863e90eec6a1f8dd053b363eb93cc068a79b (diff) | |
| download | pandoc-ff31602267d2d8aebda319cd8f55ba5e1399bb1f.tar.gz | |
Muse reader: parse inline <literal> without parseFromString
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |