From c3a00c1fdcbd4988792e94ea23ad024a252627aa Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Thu, 2 Jan 2020 23:59:11 +0100
Subject: Org writer: remove extra spaces from table cells

Closes: #6024
---
 src/Text/Pandoc/Writers/Org.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs
index e21d3f8c2..2774a98bd 100644
--- a/src/Text/Pandoc/Writers/Org.hs
+++ b/src/Text/Pandoc/Writers/Org.hs
@@ -195,7 +195,7 @@ blockToOrg (Table caption' _ _ headers rows) =  do
   let numChars = maximum . map offset
   -- FIXME: width is not being used.
   let widthsInChars =
-       map ((+2) . numChars) $ transpose (headers' : rawRows)
+       map numChars $ transpose (headers' : rawRows)
   -- FIXME: Org doesn't allow blocks with height more than 1.
   let hpipeBlocks blocks = hcat [beg, middle, end]
         where sep'   = vfill " | "
-- 
cgit v1.2.3