diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-02-12 02:52:38 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-02-12 02:52:38 +0000 |
| commit | 53ede0de5d018947706288e199c77a091e4b2e85 (patch) | |
| tree | d42e0dbd32e78440bb7c12f6de22a5b041605089 /src/Text | |
| parent | 0c21e4342c50f8d2f039035a6ed315a5ed957cc9 (diff) | |
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/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 1 |
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 |