don't hang on goalie selection

2019-11-04 05:58:39 -05:00
parent c6c461f584
commit 405ca1c5c7
2 changed files with 10 additions and 4 deletions
--- a/src/Mtlstats/Actions/GoalieInput.hs
+++ b/src/Mtlstats/Actions/GoalieInput.hs
@@ -99,7 +99,10 @@ setGameGoalie gid s = fromMaybe s $ do
      & gYtd      %~ updateStats
      & gLifetime %~ updateStats

+    updateGameState gs = gs
+      & gameGoalieStats %~ updateMap gid newGoalieStats updateStats
+      & gameGoalieAssigned .~ True
+
  Just $ s
-    & database.dbGoalies %~ modifyNth gid updateGoalie
-    & progMode.gameStateL.gameGoalieStats
-      %~ updateMap gid newGoalieStats updateStats
+    & database.dbGoalies  %~ modifyNth gid updateGoalie
+    & progMode.gameStateL %~ updateGameState