Fixed htmlComment parser.
(Added a needed try.)
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1621 788f1e2b-df1e-0410-8736-df70ead52e1b
commit14a25b287cb937cd5dbdd532971d3733326b18c4
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateSat 21 Nov 2009, 05:23 (17 years ago)
parent39f6af5
src/Text/Pandoc/Readers/HTML.hs+1−1
@@ -348,7 +348,7 @@ htmlComment :: GenParser Char st [Char]
348348htmlComment = try $ do
349349 string "<!--"
350350 comment <- many $ noneOf "-"
351− <|> try (char '-' >>~ notFollowedBy (char '-' >> char '>'))
351+ <|> try (char '-' >>~ notFollowedBy (try (char '-' >> char '>')))
352352 string "-->"
353353 return $ "<!--" ++ comment ++ "-->"
354354