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

removed (redundant) gsGoalsAgainst

Browse Source
This commit is contained in:
Jonathan Lamothe
2019-10-19 00:58:41 -04:00
parent 6b30e27836
commit a234d8e802
3 changed files with 14 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
test/TypesSpec.hs
View File

@@ -241,20 +241,18 @@ goalieStats n = newGoalieStats
& gsGames .~ n
& gsMinsPlayed .~ n + 1
& gsGoalsAllowed .~ n + 2
& gsGoalsAgainst .~ n + 3
& gsWins .~ n + 4
& gsLosses .~ n + 5
& gsTies .~ n + 6
& gsWins .~ n + 3
& gsLosses .~ n + 4
& gsTies .~ n + 5
goalieStatsJSON :: Int -> Value
goalieStatsJSON n = Object $ HM.fromList
[ ( "games", toJSON n )
, ( "mins_played", toJSON $ n + 1 )
, ( "goals_allowed", toJSON $ n + 2 )
, ( "goals_against", toJSON $ n + 3 )
, ( "wins", toJSON $ n + 4 )
, ( "losses", toJSON $ n + 5 )
, ( "ties", toJSON $ n + 6 )
, ( "wins", toJSON $ n + 3 )
, ( "losses", toJSON $ n + 4 )
, ( "ties", toJSON $ n + 5 )
]
gameStats :: Int -> GameStats