fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed name column spacing

This commit is contained in:
Jonathan Lamothe 2019-10-16 02:26:42 -04:00
parent 32f61ccc89
commit 19e0242135
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Mtlstats/Report.hs
View File

@ -150,7 +150,7 @@ playerReport width label ps = let
playerNameColWidth :: [Player] -> Int playerNameColWidth :: [Player] -> Int
playerNameColWidth = foldr playerNameColWidth = foldr
(\player current -> max current $ length $ player^.pName) (\player current -> max current $ succ $ length $ player^.pName)
10 10
showStats :: GameStats -> String showStats :: GameStats -> String

2
test/ReportSpec.hs
View File

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