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

Fixed bug in HTML comment parser.

Browse source 
Resolves Issue #157.  ('try' in the wrong place.)

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1605 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2009-07-21 08:02:03 +00:00
parent adabf14a5f
commit 1fe28483bd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -346,8 +346,8 @@ rawHtmlBlock' = do notFollowedBy' (htmlTag "/body" <|> htmlTag "/html")
htmlComment :: GenParser Char st [Char]
htmlComment = try $ do
string "<!--"
comment <- many ( (satisfy (/='-'))
<|> (char '-' >>~ notFollowedBy (try $ char '-' >> char '>')))
comment <- many $ noneOf "-"
<|> try (char '-' >>~ notFollowedBy (char '-' >> char '>'))
string "-->"
return $ "<!--" ++ comment ++ "-->"