set rookie flag on player creation

2020-02-13 10:35:35 -05:00
parent 4315b40732
commit c22849bb3b
2 changed files with 34 additions and 21 deletions
--- a/src/Mtlstats/Actions.hs
+++ b/src/Mtlstats/Actions.hs
@@ -161,11 +161,13 @@ editSelectedGoalie f s = fromMaybe s $ do
 addPlayer :: ProgState -> ProgState
 addPlayer s = fromMaybe s $ do
  let cps = s^.progMode.createPlayerStateL
-  num <- cps^.cpsNumber
+  num   <- cps^.cpsNumber
+  rFlag <- cps^.cpsRookieFlag
  let
    name   = cps^.cpsName
    pos    = cps^.cpsPosition
    player = newPlayer num name pos
+      & pRookie .~ rFlag
  Just $ s & database.dbPlayers
    %~ (++[player])