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

Fixed htmlComment parser.

Browse source 
(Added a needed try.)

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1621 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2009-11-21 05:23:09 +00:00
parent 39f6af5de4
commit 14a25b287c
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

@ -348,7 +348,7 @@ htmlComment :: GenParser Char st [Char]
htmlComment = try $ do
string "<!--"
comment <- many $ noneOf "-"
<|> try (char '-' >>~ notFollowedBy (char '-' >> char '>'))
<|> try (char '-' >>~ notFollowedBy (try (char '-' >> char '>')))
string "-->"
return $ "<!--" ++ comment ++ "-->"