fixed name column spacing

2019-10-16 02:26:42 -04:00
parent 32f61ccc89
commit 19e0242135
2 changed files with 2 additions and 2 deletions
--- a/src/Mtlstats/Report.hs
+++ b/src/Mtlstats/Report.hs
@@ -150,7 +150,7 @@ playerReport width label ps = let

 playerNameColWidth :: [Player] -> Int
 playerNameColWidth = foldr
-  (\player current -> max current $ length $ player^.pName)
+  (\player current -> max current $ succ $ length $ player^.pName)
  10

 showStats :: GameStats -> String