diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/Shared.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Shared.hs | 2 |
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 |