record active flag on goalie creation

2020-02-13 23:55:00 -05:00
parent e28ef1ff0e
commit 9b07c6d249
2 changed files with 34 additions and 22 deletions
--- a/src/Mtlstats/Actions.hs
+++ b/src/Mtlstats/Actions.hs
@@ -179,10 +179,12 @@ addGoalie s = fromMaybe s $ do
  let cgs = s^.progMode.createGoalieStateL
  num   <- cgs^.cgsNumber
  rFlag <- cgs^.cgsRookieFlag
+  aFlag <- cgs^.cgsActiveFlag
  let
    name   = cgs^.cgsName
    goalie = newGoalie num name
      & gRookie .~ rFlag
+      & gActive .~ aFlag
  Just $ s & database.dbGoalies
    %~ (++[goalie])