aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2009-07-21 08:02:03 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2009-07-21 08:02:03 +0000
commit1fe28483bddef1a1f8139b1ba8e8129fa14090e6 (patch)
tree7b988f8eda9bf116e843d0532f80986d0d6166f6 /src/Text/Pandoc
parentadabf14a5f5bfcd8d0356ccbf8f54b954bbfd52c (diff)
downloadpandoc-1fe28483bddef1a1f8139b1ba8e8129fa14090e6.tar.gz
Fixed bug in HTML comment parser.
Resolves Issue #157. ('try' in the wrong place.) git-svn-id: https://pandoc.googlecode.com/svn/trunk@1605 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/HTML.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index c988c68d2..506f77d1b 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -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 ++ "-->"