From 7fd837863bb651599e6e94e1b1e938748b84266b Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Mon, 4 Nov 2019 02:50:10 -0500
Subject: [PATCH] call selectGameGoalieC when goalie info entered for game

---
 src/Mtlstats/Control/GoalieInput.hs | 4 ++++
 1 file changed, 4 insertions(+)

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) ++ " ***"