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

calculate and display total game stats

Browse Source
This commit is contained in:
Jonathan Lamothe 2019-10-09 00:30:03 -04:00
parent 74fd4fe2fb
commit 0b249bcdae
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/Mtlstats/Report.hs
View File

@ -99,6 +99,7 @@ gameStatsReport width s = unlines $ fromMaybe [] $ do
nameWidth = succ $ maximum $ 10 : map nameWidth = succ $ maximum $ 10 : map
(length . (^.pName) . fst) (length . (^.pName) . fst)
pStats pStats
tStats = foldr (addPlayerStats . snd) newPlayerStats pStats
Just $ Just $
[ centre width "GAME STATISTICS" [ centre width "GAME STATISTICS"
, "" , ""
@ -118,7 +119,20 @@ gameStatsReport width s = unlines $ fromMaybe [] $ do
++ right 6 (show $ stats^.psAssists) ++ right 6 (show $ stats^.psAssists)
++ right 6 (show $ pPoints stats) ++ right 6 (show $ pPoints stats)
++ right 6 (show $ stats^.psPMin)) ++ right 6 (show $ stats^.psPMin))
pStats pStats ++
[ centre width
$ replicate (4 + nameWidth) ' '
++ replicate (3 + 3 * 6) '-'
, overlay
"GAME TOTALS"
( centre width
$ replicate (4 + nameWidth) ' '
++ right 3 (show $ tStats^.psGoals)
++ right 6 (show $ tStats^.psAssists)
++ right 6 (show $ pPoints tStats)
++ right 6 (show $ tStats^.psPMin)
)
]
gameDate :: GameState -> String gameDate :: GameState -> String
gameDate gs = fromMaybe "" $ do gameDate gs = fromMaybe "" $ do