HTML reader: handle spaces before <html>.

Resolves Issue #216. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1837 788f1e2b-df1e-0410-8736-df70ead52e1b
2010-02-12 02:52:38 +00:00 · 2010-02-12 02:52:38 +00:00 · 53ede0de5d
commit 53ede0de5d
parent 0c21e4342c
1 changed files with 1 additions and 0 deletions
--- 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