diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-03-22 16:56:10 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-03-22 16:56:10 -0700 |
| commit | b1ffdf3b01c5acec18ee5f776841f478eb7b7810 (patch) | |
| tree | ed381e810e07dd554d4d4ce149a2c0dcbda614a5 /src/Text/Pandoc/Readers | |
| parent | db207904efd570d69865d0f5f5fb640a9f0c4d69 (diff) | |
| download | pandoc-b1ffdf3b01c5acec18ee5f776841f478eb7b7810.tar.gz | |
Fixed bug in Markdown raw HTML parsing.
This was a regression, with the rewrite of `htmlInBalanced`
(from `Text.Pandoc.Readers.HTML`) in 1.17.
It caused newlines to be omitted in raw HTML blocks.
Closes #2804.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -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 959a2d16f..fb936cff7 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -939,7 +939,7 @@ htmlInBalanced f = try $ do (TagClose _ : TagPosition er ec : _) -> do let ls = er - sr let cs = ec - sc - lscontents <- concat <$> count ls anyLine + lscontents <- unlines <$> count ls anyLine cscontents <- count cs anyChar (_,closetag) <- htmlTag (~== TagClose tn) return (lscontents ++ cscontents ++ closetag) |