assume goalie is active on creation of rookie

2020-02-14 00:07:29 -05:00 · 2020-02-14 00:07:29 -05:00 · dff11a8316
parent 747bdf8f32
commit dff11a8316
1 changed files with 5 additions and 1 deletions
--- a/src/Mtlstats/Control/CreateGoalie.hs
+++ b/src/Mtlstats/Control/CreateGoalie.hs
@ -52,7 +52,11 @@ getRookieFlagC = Controller
    C.drawString "Is this goalie a rookie? (Y/N)"
    return C.CursorInvisible
  , handleController = \e -> do
-    modify $ progMode.createGoalieStateL.cgsRookieFlag .~ ynHandler e
+    modify $ case ynHandler e of
+      Just True -> progMode.createGoalieStateL
+        %~ (cgsRookieFlag ?~ True)
+        .  (cgsActiveFlag ?~ True)
+      rf -> progMode.createGoalieStateL.cgsRookieFlag .~ rf
    return True
  }