aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/Shared.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Writers/Shared.hs')
-rw-r--r--src/Text/Pandoc/Writers/Shared.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Shared.hs b/src/Text/Pandoc/Writers/Shared.hs
index 299c6faaf..7e08724d8 100644
--- a/src/Text/Pandoc/Writers/Shared.hs
+++ b/src/Text/Pandoc/Writers/Shared.hs
@@ -249,7 +249,7 @@ gridTable opts blocksToDoc headless aligns widths headers rows = do
let numChars [] = 0
numChars xs = maximum . map offset $ xs
let widthsInChars' =
- map ((+2) . numChars) $ transpose (rawHeaders' : rawRows')
+ map numChars $ transpose (rawHeaders' : rawRows')
if sum widthsInChars' > writerColumns opts
then -- use even widths
handleGivenWidths