Muse reader: do not remove trailing whitespace from <code>

This commit is contained in:
Alexander Krotov 2018-01-17 12:30:15 +03:00
parent d0a895acee
commit 7e2c75c865

View file

@ -728,7 +728,7 @@ code = try $ do
codeTag :: PandocMonad m => MuseParser m (F Inlines)
codeTag = do
(attrs, content) <- parseHtmlContentWithAttrs "code" anyChar
(attrs, content) <- htmlElement "code"
return $ return $ B.codeWith attrs content
inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines)