diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-07-21 08:02:03 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-07-21 08:02:03 +0000 |
| commit | 1fe28483bddef1a1f8139b1ba8e8129fa14090e6 (patch) | |
| tree | 7b988f8eda9bf116e843d0532f80986d0d6166f6 /src/Text/Pandoc | |
| parent | adabf14a5f5bfcd8d0356ccbf8f54b954bbfd52c (diff) | |
| download | pandoc-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.hs | 4 |
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 ++ "-->" |