diff --git a/src/Mtlstats/Control.hs b/src/Mtlstats/Control.hs
index a42f4a6..11653ec 100644
--- a/src/Mtlstats/Control.hs
+++ b/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
diff --git a/src/Mtlstats/Prompt.hs b/src/Mtlstats/Prompt.hs
index 16570ae..f34ddc5 100644
--- a/src/Mtlstats/Prompt.hs
+++ b/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