record active flag on player creation

2020-02-13 23:40:43 -05:00
parent 960fbb3443
commit e28ef1ff0e
2 changed files with 27 additions and 15 deletions
--- a/src/Mtlstats/Actions.hs
+++ b/src/Mtlstats/Actions.hs
@@ -163,11 +163,13 @@ addPlayer s = fromMaybe s $ do
  let cps = s^.progMode.createPlayerStateL
  num   <- cps^.cpsNumber
  rFlag <- cps^.cpsRookieFlag
+  aFlag <- cps^.cpsActiveFlag
  let
    name   = cps^.cpsName
    pos    = cps^.cpsPosition
    player = newPlayer num name pos
      & pRookie .~ rFlag
+      & pActive .~ aFlag
  Just $ s & database.dbPlayers
    %~ (++[player])