diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-01-06 00:21:19 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-06 00:21:19 -0800 |
| commit | 1be2ca6c785f0001605ef9347107ae98383feef9 (patch) | |
| tree | 583b48effe8f803a6de8dd549e9673ee917fb5f5 | |
| parent | b63a7f7c48ecacb7594c25460e13d1f924612224 (diff) | |
| download | pandoc-1be2ca6c785f0001605ef9347107ae98383feef9.tar.gz | |
HTML reader: Fixed bug in htmlTag for comments.
| -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 ++ ">") |