aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2016-05-09 18:53:29 +0200
committerAlbert Krewinkel <albert@zeitkraut.de>2016-05-09 19:06:24 +0200
commitd32878b84b08f2f8e007b9b06c393a41e2ebe5fe (patch)
tree40e718e03518f024e581d169ccdbbcfec97326ca /src/Text
parent10a809f1260945b61cae6aa8912399ad83051552 (diff)
downloadpandoc-d32878b84b08f2f8e007b9b06c393a41e2ebe5fe.tar.gz
Org writer: print empty table rows
Empty table rows should not be dropped from the output, so row-height is always set to be at least 1.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/Org.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs
index 20086ed19..e57a6fc11 100644
--- a/src/Text/Pandoc/Writers/Org.hs
+++ b/src/Text/Pandoc/Writers/Org.hs
@@ -170,7 +170,7 @@ blockToOrg (Table caption' _ _ headers rows) = do
map ((+2) . numChars) $ transpose (headers' : rawRows)
-- FIXME: Org doesn't allow blocks with height more than 1.
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 " |")