git.iko.soy/typeable/pandoc
on master help sign in
HTML reader: handle spaces before <html>.
53ede0dfiddlosopher
src/Text/Pandoc/Readers/HTML.hs+1
compare with master
unifiedsplit
@@ -486,6 +486,7 @@ endOfDoc = try $ do
486parseHtml :: GenParser Char ParserState Pandoc
486parseHtml :: GenParser Char ParserState Pandoc
487parseHtml = do
487parseHtml = do
488 sepEndBy (choice [xmlDec, definition, htmlComment]) spaces
488 sepEndBy (choice [xmlDec, definition, htmlComment]) spaces
489+ spaces
489 skipHtmlTag "html"
490 skipHtmlTag "html"
490 spaces
491 spaces
491 meta <- option (Meta [] [] []) parseHead
492 meta <- option (Meta [] [] []) parseHead