allow ProgMode to handle goalie creation

src/Mtlstats/Control.hs

@@ -64,6 +64,10 @@ dispatch s = case s^.progMode of
     | null $ cps^.cpsName     -> getPlayerNameC
     | null $ cps^.cpsPosition -> getPlayerPosC
     | otherwise               -> confirmCreatePlayerC
+  CreateGoalie cgs
+    | null $ cgs^.cgsNumber -> getGoalieNumC
+    | null $ cgs^.cgsName   -> getGoalieNameC
+    | otherwise             -> confirmCreateGoalieC
 
 mainMenuC :: Controller
 mainMenuC = Controller
@@ -336,6 +340,15 @@ confirmCreatePlayerC = Controller
     return True
   }
 
+getGoalieNumC :: Controller
+getGoalieNumC = undefined
+
+getGoalieNameC :: Controller
+getGoalieNameC = undefined
+
+confirmCreateGoalieC :: Controller
+confirmCreateGoalieC = undefined
+
 gameGoal :: ProgState -> (Int, Int)
 gameGoal s =
   ( s^.database.dbGames