fixed name column spacing

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

test/ReportSpec.hs

@@ -61,5 +61,5 @@ playerNameColWidthSpec = describe "playerNameColWidth" $ do
     --  label,         players,          expected
     [ ( "empty list",  [],               10       )
     , ( "short names", [short1, short2], 10       )
-    , ( "long name",   [short1, long],   15       )
+    , ( "long name",   [short1, long],   16       )
     ]