aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2010-02-12 02:52:38 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2010-02-12 02:52:38 +0000
commit53ede0de5d018947706288e199c77a091e4b2e85 (patch)
treed42e0dbd32e78440bb7c12f6de22a5b041605089 /src
parent0c21e4342c50f8d2f039035a6ed315a5ed957cc9 (diff)
downloadpandoc-53ede0de5d018947706288e199c77a091e4b2e85.tar.gz
HTML reader: handle spaces before <html>.
Resolves Issue #216. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1837 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/HTML.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index f3c3b9882..2e5473992 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -486,6 +486,7 @@ endOfDoc = try $ do
parseHtml :: GenParser Char ParserState Pandoc
parseHtml = do
sepEndBy (choice [xmlDec, definition, htmlComment]) spaces
+ spaces
skipHtmlTag "html"
spaces
meta <- option (Meta [] [] []) parseHead