diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 9d1aa3922..ae8f0438e 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -480,5 +480,12 @@ htmlTag f = try $ do (next : _) <- getInput >>= return . canonicalizeTags . parseTags guard $ f next -- advance the parser - rendered <- manyTill anyChar (char '>') - return (next, rendered ++ ">") + case next of + TagComment s -> do + count (length s + 4) anyChar + skipMany (satisfy (/='>')) + char '>' + return (next, "<!--" ++ s ++ "-->") + _ -> do + rendered <- manyTill anyChar (char '>') + return (next, rendered ++ ">") |