diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-23 14:59:51 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-23 14:59:51 +0100 |
| commit | e92941a9ca75560d6de99b86061492ec49ef1525 (patch) | |
| tree | d2bb416465b382302b0a9387f72efd560c498e04 /src/Text/Pandoc/Writers/Shared.hs | |
| parent | e180a2efa6477dd08b7c6c41816d6cfdf9f24afd (diff) | |
| download | pandoc-e92941a9ca75560d6de99b86061492ec49ef1525.tar.gz | |
Grid tables: remove unnecessary extra space in cells.
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 |