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

implemented recordGoalieStats

Browse Source
This commit is contained in:
Jonathan Lamothe
2019-10-31 03:21:11 -04:00
parent ff541c2385
commit eb96ce6152
2 changed files with 154 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/Mtlstats/Actions.hs
View File

@@ -272,7 +272,28 @@ assignPMins mins s = fromMaybe s $ do
-- | Records the goalie's game stats
recordGoalieStats :: ProgState -> ProgState
recordGoalieStats = undefined
recordGoalieStats s = fromMaybe s $ do
let gs = s^.progMode.gameStateL
gid <- gs^.gameSelectedGoalie
goalie <- nth gid $ s^.database.dbGoalies
mins <- gs^.goalieMinsPlayed
goals <- gs^.goalsAllowed
let
bumpStats gs = gs
& gsMinsPlayed +~ mins
& gsGoalsAllowed +~ goals
Just $ s
& progMode.gameStateL
%~ (gameGoalieStats %~ updateMap gid newGoalieStats bumpStats)
. (gameSelectedGoalie .~ Nothing)
. (goalieMinsPlayed .~ Nothing)
. (goalsAllowed .~ Nothing)
& database.dbGoalies
%~ modifyNth gid (\goalie -> goalie
& gYtd %~ bumpStats
& gLifetime %~ bumpStats)
-- | Resets the program state back to the main menu
backHome :: ProgState -> ProgState