diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown/Table.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown/Table.hs b/src/Text/Pandoc/Writers/Markdown/Table.hs index b2a220b10..caef0a0ea 100644 --- a/src/Text/Pandoc/Writers/Markdown/Table.hs +++ b/src/Text/Pandoc/Writers/Markdown/Table.hs @@ -50,7 +50,9 @@ pipeTable opts headless aligns widths rawHeaders rawRows = do not (all (== 0) widths) && maxwidth + (numcols + 1) > colwidth then map - (floor . (* fromIntegral (colwidth - (numcols +1)))) + (max 0 . + floor . + (* fromIntegral (colwidth - (numcols +1)))) widths else contentWidths let torow cs = nowrap $ literal "|" <> |