implemented Mtlstats.Control.GoalieInput.selectGoalieC

src/Mtlstats/Control/GoalieInput.hs

@@ -23,17 +23,23 @@ module Mtlstats.Control.GoalieInput (goalieInput) where
 
 import Lens.Micro ((^.))
 
+import Mtlstats.Prompt
 import Mtlstats.Types
 
 -- | The dispatcher for handling goalie input
 goalieInput :: GameState -> Controller
 goalieInput gs
-  | null $ gs^.gameSelectedGoalie   = selectGoalieC
-  | null $ gs^.goalieMinsPlayed = minsPlayedC
-  | otherwise                   = goalsAllowedC
+  | null $ gs^.gameSelectedGoalie = selectGoalieC
+  | null $ gs^.goalieMinsPlayed   = minsPlayedC
+  | otherwise                     = goalsAllowedC
 
 selectGoalieC :: Controller
-selectGoalieC = undefined
+selectGoalieC = Controller
+  { drawController   = drawPrompt selectGameGoaliePrompt
+  , handleController = \e -> do
+    promptHandler selectGameGoaliePrompt e
+    return True
+  }
 
 minsPlayedC :: Controller
 minsPlayedC = undefined

src/Mtlstats/Prompt.hs

@@ -42,7 +42,8 @@ module Mtlstats.Prompt (
   pMinPlayerPrompt,
   assignPMinsPrompt,
   goalieNumPrompt,
-  goalieNamePrompt
+  goalieNamePrompt,
+  selectGameGoaliePrompt
 ) where
 
 import Control.Monad (when)
@@ -259,5 +260,9 @@ goalieNamePrompt :: Prompt
 goalieNamePrompt = strPrompt "Goalie name: " $
   modify . (progMode.createGoalieStateL.cgsName .~)
 
+-- | Prompts for a goalie who played in the game
+selectGameGoaliePrompt :: Prompt
+selectGameGoaliePrompt = undefined
+
 drawSimplePrompt :: String -> ProgState -> C.Update ()
 drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer