From fe28e96145096869524ed5ad1604ba6628c59c5f Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Thu, 13 Feb 2020 14:45:43 -0500
Subject: [PATCH] use promptController in Mtlstats.Control.CreateGoalie

---
 src/Mtlstats/Control/CreateGoalie.hs | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

diff --git a/src/Mtlstats/Control/CreateGoalie.hs b/src/Mtlstats/Control/CreateGoalie.hs
index 7f20116..43befb4 100644
--- a/src/Mtlstats/Control/CreateGoalie.hs
+++ b/src/Mtlstats/Control/CreateGoalie.hs
@@ -40,20 +40,10 @@ createGoalieC cgs
   | otherwise             = confirmCreateGoalieC
 
 getGoalieNumC :: Controller
-getGoalieNumC = Controller
-  { drawController = drawPrompt goalieNumPrompt
-  , handleController = \e -> do
-    promptHandler goalieNumPrompt e
-    return True
-  }
+getGoalieNumC = promptController goalieNumPrompt
 
 getGoalieNameC :: Controller
-getGoalieNameC = Controller
-  { drawController = drawPrompt goalieNamePrompt
-  , handleController = \e -> do
-    promptHandler goalieNamePrompt e
-    return True
-  }
+getGoalieNameC = promptController goalieNamePrompt
 
 confirmCreateGoalieC :: Controller
 confirmCreateGoalieC = Controller