diff options
Diffstat (limited to 'src')
| -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 ++ "-->" |