From ec914a38b15b13bf39b6afff7282696e2b88523d Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Fri, 25 Oct 2019 00:11:26 -0400
Subject: [PATCH] implemented goalieNumPrompt

---
 src/Mtlstats/Prompt.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Mtlstats/Prompt.hs b/src/Mtlstats/Prompt.hs
index f34ddc5..fd5e490 100644
--- a/src/Mtlstats/Prompt.hs
+++ b/src/Mtlstats/Prompt.hs
@@ -247,7 +247,8 @@ assignPMinsPrompt = numPrompt "Penalty minutes: " $
   modify . assignPMins
 
 goalieNumPrompt :: Prompt
-goalieNumPrompt = undefined
+goalieNumPrompt = numPrompt "Goalie number: " $
+  modify . (progMode.createGoalieStateL.cgsNumber ?~)
 
 drawSimplePrompt :: String -> ProgState -> C.Update ()
 drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer