implemented goalsAllowedC

src/Mtlstats/Control/GoalieInput.hs

@@ -56,7 +56,14 @@ minsPlayedC = Controller
   }
 
 goalsAllowedC :: Controller
-goalsAllowedC = undefined
+goalsAllowedC = Controller
+  { drawController = \s -> do
+    C.drawString $ header s
+    drawPrompt goalsAllowedPrompt s
+  , handleController = \e -> do
+    promptHandler goalsAllowedPrompt e
+    return True
+  }
 
 header :: ProgState -> String
 header s = unlines

src/Mtlstats/Prompt.hs

@@ -46,7 +46,8 @@ module Mtlstats.Prompt (
   goalieNumPrompt,
   goalieNamePrompt,
   selectGameGoaliePrompt,
-  goalieMinsPlayedPrompt
+  goalieMinsPlayedPrompt,
+  goalsAllowedPrompt
 ) where
 
 import Control.Monad (when)
@@ -316,5 +317,9 @@ goalieMinsPlayedPrompt :: Prompt
 goalieMinsPlayedPrompt = numPrompt "Minutes played: " $
   modify . (progMode.gameStateL.goalieMinsPlayed ?~)
 
+-- | Prompts for the number of goals the goalie allowed
+goalsAllowedPrompt :: Prompt
+goalsAllowedPrompt = undefined
+
 drawSimplePrompt :: String -> ProgState -> C.Update ()
 drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer