diff --git a/src/Mtlstats/Control/GoalieInput.hs b/src/Mtlstats/Control/GoalieInput.hs index 3d9cbf2..722a38a 100644 --- a/src/Mtlstats/Control/GoalieInput.hs +++ b/src/Mtlstats/Control/GoalieInput.hs @@ -34,6 +34,7 @@ import Mtlstats.Util -- | The dispatcher for handling goalie input goalieInput :: GameState -> Controller goalieInput gs + | gs^.gameGoaliesRecorded = selectGameGoalieC | null $ gs^.gameSelectedGoalie = selectGoalieC | null $ gs^.gameGoalieMinsPlayed = minsPlayedC | otherwise = goalsAllowedC @@ -47,6 +48,9 @@ minsPlayedC = promptControllerWith header goalieMinsPlayedPrompt goalsAllowedC :: Controller goalsAllowedC = promptControllerWith header goalsAllowedPrompt +selectGameGoalieC :: Controller +selectGameGoalieC = undefined + header :: ProgState -> C.Update () header s = C.drawString $ unlines [ "*** GAME " ++ padNum 2 (s^.database.dbGames) ++ " ***"