set rookie flag appropriately on goalie creation

2020-02-13 19:45:36 -05:00
parent 14386f9c7d
commit e51953650c
2 changed files with 33 additions and 20 deletions
--- a/src/Mtlstats/Actions.hs
+++ b/src/Mtlstats/Actions.hs
@@ -175,10 +175,12 @@ addPlayer s = fromMaybe s $ do
 addGoalie :: ProgState -> ProgState
 addGoalie s = fromMaybe s $ do
  let cgs = s^.progMode.createGoalieStateL
-  num <- cgs^.cgsNumber
+  num   <- cgs^.cgsNumber
+  rFlag <- cgs^.cgsRookieFlag
  let
    name   = cgs^.cgsName
    goalie = newGoalie num name
+      & gRookie .~ rFlag
  Just $ s & database.dbGoalies
    %~ (++[goalie])