@@ -161,7 +161,8 @@ blockToMan opts (Table caption alignments widths headers rows) =
161161 in do
162162 caption' <- inlineListToMan opts caption
163163 modify (\(notes, preprocessors) -> (notes, "t":preprocessors))
164− let iwidths = map (printf "w(%.2fi)" . (6.5 *)) widths -- 6.5i default width
164+ let iwidths = map (printf "w(%0.2fn)" . (70 *)) widths
165+ -- 78n default width - 8n indent = 70n
165166 let coldescriptions = text $ joinWithSep " "
166167 (zipWith (\align width -> aligncode align ++ width)
167168 alignments iwidths) ++ "."