diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-02 19:51:54 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-02 19:51:54 +0300 |
| commit | 991b57733c508634d6093e2aeb2ffb3feec13c42 (patch) | |
| tree | 7f332239373ec6fa096cb838be473cb790828399 /src/Text/Pandoc/Readers | |
| parent | a01573692af91f54b5fe6670e4a07fb6a3935181 (diff) | |
| download | pandoc-991b57733c508634d6093e2aeb2ffb3feec13c42.tar.gz | |
hlint Muse reader and writer
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index c083933ff..8bb087629 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -401,7 +401,7 @@ exampleTag = try $ do return $ return $ B.codeBlockWith attr $ rchop $ intercalate "\n" $ dropSpacePrefix $ splitOn "\n" $ lchop contents literalTag :: PandocMonad m => MuseParser m (F Blocks) -literalTag = do +literalTag = (return . rawBlock) <$> htmlBlock "literal" where -- FIXME: Emacs Muse inserts <literal> without style into all output formats, but we assume HTML @@ -878,7 +878,7 @@ codeTag = do return $ return $ B.codeWith attrs content inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines) -inlineLiteralTag = do +inlineLiteralTag = (return . rawInline) <$> htmlElement "literal" where -- FIXME: Emacs Muse inserts <literal> without style into all output formats, but we assume HTML |