@@ -638,7 +638,7 @@ gridTable opts headless aligns widths headers' rawRows = do
638638 then replicate numcols (1.0 / fromIntegral numcols)
639639 else widths
640640 let widthsInChars = map
641− ((\x -> x - 1) . floor . (fromIntegral (writerColumns opts) *)) widths'
641+ ((\x -> x - 3) . floor . (fromIntegral (writerColumns opts) *)) widths'
642642 let hpipeBlocks blocks = hcat [beg, middle, end]
643643 where h = maximum (1 : map height blocks)
644644 sep' = lblock 3 $ vcat (map text $ replicate h " | ")