assume player is active on creation of rookie

2020-02-14 00:01:23 -05:00 · 2020-02-14 00:01:23 -05:00 · 747bdf8f32
parent 9b07c6d249
commit 747bdf8f32
1 changed files with 5 additions and 1 deletions
--- a/src/Mtlstats/Control/CreatePlayer.hs
+++ b/src/Mtlstats/Control/CreatePlayer.hs
@ -56,7 +56,11 @@ getRookieFlagC = Controller
    C.drawString "Is this player a rookie? (Y/N)"
    return C.CursorInvisible
  , handleController = \e -> do
-    modify $ progMode.createPlayerStateL.cpsRookieFlag .~ ynHandler e
+    modify $ case ynHandler e of
+      Just True -> progMode.createPlayerStateL
+        %~ (cpsRookieFlag ?~ True)
+        .  (cpsActiveFlag ?~ True)
+      rf -> progMode.createPlayerStateL.cpsRookieFlag .~ rf
    return True
  }