diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-11-23 15:18:03 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-11-23 15:18:03 +0100 |
| commit | 03788eb1641f3b0f790e5039c0fe03045593472d (patch) | |
| tree | cb0325dbcfd44e26a40efce8af9f605feaa04e97 /src/Text/Pandoc/Writers | |
| parent | 6ee7f7206b89e285037a65690b7837045cdf8ac9 (diff) | |
| download | pandoc-03788eb1641f3b0f790e5039c0fe03045593472d.tar.gz | |
Fixed some bugs in Pretty that caused blank lines in tables.
The bugs caused spurious blank lines in grid tables
when we had things like
blankline $$ blankline
Closes #3251.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/RST.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs index 21f1acd6e..c438cb322 100644 --- a/src/Text/Pandoc/Writers/RST.hs +++ b/src/Text/Pandoc/Writers/RST.hs @@ -268,7 +268,7 @@ blockToRST (Table caption _ widths headers rows) = do then map ((+2) . numChars) $ transpose (headers' : rawRows) else map (floor . (fromIntegral (writerColumns opts) *)) widths let hpipeBlocks blocks = hcat [beg, middle, end] - where h = maximum (1 : map height blocks) + where h = height (hcat blocks) sep' = lblock 3 $ vcat (map text $ replicate h " | ") beg = lblock 2 $ vcat (map text $ replicate h "| ") end = lblock 2 $ vcat (map text $ replicate h " |") |