Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fixed htmlTag in HTML reader.

Browse source 
Require that `<!` or `<?` be followed by nonspace.
This prevents `</ div>` from being parsed as a comment.

Closes #1820.
This commit is contained in:
John MacFarlane 2015-04-17 18:35:49 -07:00
parent 0c5f57aab9
commit 13b230a1b5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Readers/HTML.hs
View file

@ -887,7 +887,7 @@ htmlTag :: Monad m
=> (Tag String -> Bool) => (Tag String -> Bool)
-> ParserT [Char] st m (Tag String, String) -> ParserT [Char] st m (Tag String, String)
htmlTag f = try $ do htmlTag f = try $ do
lookAhead $ char '<' >> (oneOf "/!?" <|> letter) lookAhead $ char '<' >> ((oneOf "/!?" >> nonspaceChar) <|> letter)
(next : _) <- getInput >>= return . canonicalizeTags . parseTags (next : _) <- getInput >>= return . canonicalizeTags . parseTags
guard $ f next guard $ f next
-- advance the parser -- advance the parser