diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-01-05 14:01:45 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-01-05 14:04:10 -0800 |
| commit | a796538d84e00f9512e64f1da5e7f147c8cfdbe0 (patch) | |
| tree | 5e915f8a695ac5479e2a3a206a31e10c58050d84 /src/Text/Pandoc/Writers/RST.hs | |
| parent | a81b0932e54b7170bcf262d566b35446ed442506 (diff) | |
RST, Markdown writers: Fixed rendering of grid tables with blank rows.
Closes #2615.
Diffstat (limited to 'src/Text/Pandoc/Writers/RST.hs')
| -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 3b44a6cb0..98c39bdaf 100644 --- a/src/Text/Pandoc/Writers/RST.hs +++ b/src/Text/Pandoc/Writers/RST.hs @@ -267,7 +267,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 (map height blocks) + where h = maximum (1 : map height 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 " |") |