diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-11-21 05:23:09 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-11-21 05:23:09 +0000 |
| commit | 14a25b287cb937cd5dbdd532971d3733326b18c4 (patch) | |
| tree | eb035839d41777542610bbb8b082855deaeee7eb | |
| parent | 39f6af5de4f4059239fbeda4095d8f92b98912d3 (diff) | |
| download | pandoc-14a25b287cb937cd5dbdd532971d3733326b18c4.tar.gz | |
Fixed htmlComment parser.
(Added a needed try.)
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1621 788f1e2b-df1e-0410-8736-df70ead52e1b
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index e1f1e1af5..aef9e1962 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -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 ++ "-->" |