implemented getGoalieNumC

src/Mtlstats/Control.hs

@@ -341,7 +341,12 @@ confirmCreatePlayerC = Controller
   }
 
 getGoalieNumC :: Controller
-getGoalieNumC = undefined
+getGoalieNumC = Controller
+  { drawController = drawPrompt goalieNumPrompt
+  , handleController = \e -> do
+    promptHandler goalieNumPrompt e
+    return True
+  }
 
 getGoalieNameC :: Controller
 getGoalieNameC = undefined

src/Mtlstats/Prompt.hs

@@ -40,7 +40,8 @@ module Mtlstats.Prompt (
   recordGoalPrompt,
   recordAssistPrompt,
   pMinPlayerPrompt,
-  assignPMinsPrompt
+  assignPMinsPrompt,
+  goalieNumPrompt
 ) where
 
 import Control.Monad (when)
@@ -245,5 +246,8 @@ assignPMinsPrompt :: Prompt
 assignPMinsPrompt = numPrompt "Penalty minutes: " $
   modify . assignPMins
 
+goalieNumPrompt :: Prompt
+goalieNumPrompt = undefined
+
 drawSimplePrompt :: String -> ProgState -> C.Update ()
 drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer