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

update report to contain goals for and goals against

This commit is contained in:
Jonathan Lamothe 2019-09-21 00:35:46 -04:00
parent 06c94260ad
commit a9918c559b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Mtlstats/Report.hs
View File

@ -63,6 +63,8 @@ report width s = unlines $ fromMaybe [] $ do
++ right 4 "W" ++ right 4 "W"
++ right 4 "L" ++ right 4 "L"
++ right 4 "OT" ++ right 4 "OT"
++ right 4 "GF"
++ right 4 "GA"
++ right 4 "P" ++ right 4 "P"
, centre width , centre width
$ left 11 "HOME" $ left 11 "HOME"
@ -72,7 +74,7 @@ report width s = unlines $ fromMaybe [] $ do
++ showStats aStats ++ showStats aStats
, centre width , centre width
$ replicate 11 ' ' $ replicate 11 ' '
++ replicate (2 + 4 * 4) '-' ++ replicate (2 + 4 * 6) '-'
, centre width , centre width
$ left 11 "TOTALS" $ left 11 "TOTALS"
++ showStats tStats ++ showStats tStats
@ -91,4 +93,6 @@ showStats gs
++ right 4 (show $ gs^.gmsWins) ++ right 4 (show $ gs^.gmsWins)
++ right 4 (show $ gs^.gmsLosses) ++ right 4 (show $ gs^.gmsLosses)
++ right 4 (show $ gs^.gmsOvertime) ++ right 4 (show $ gs^.gmsOvertime)
++ right 4 (show $ gs^.gmsGoalsFor)
++ right 4 (show $ gs^.gmsGoalsAgainst)
++ right 4 (show $ gmsPoints gs) ++ right 4 (show $ gmsPoints gs)