prompt whether or not a new player/goalie is active

src/Mtlstats/Control/CreateGoalie.hs

@@ -57,7 +57,14 @@ getRookieFlagC = Controller
   }
 
 getActiveFlagC :: Controller
-getActiveFlagC = undefined
+getActiveFlagC = Controller
+  { drawController = const $ do
+    C.drawString "Is this goalie active? (Y/N)"
+    return C.CursorInvisible
+  , handleController = \e -> do
+    modify $ progMode.createGoalieStateL.cgsActiveFlag .~ ynHandler e
+    return True
+  }
 
 confirmCreateGoalieC :: Controller
 confirmCreateGoalieC = Controller

src/Mtlstats/Control/CreatePlayer.hs

@@ -61,7 +61,14 @@ getRookieFlagC = Controller
   }
 
 getActiveFlagC :: Controller
-getActiveFlagC = undefined
+getActiveFlagC = Controller
+  { drawController = const $ do
+    C.drawString "Is the player active? (Y/N)"
+    return C.CursorInvisible
+  , handleController = \e -> do
+    modify $ progMode.createPlayerStateL.cpsActiveFlag .~ ynHandler e
+    return True
+  }
 
 confirmCreatePlayerC :: Controller
 confirmCreatePlayerC = Controller