use promptController in Mtlstats.Control.CreateGoalie

src/Mtlstats/Control/CreateGoalie.hs

@@ -40,20 +40,10 @@ createGoalieC cgs
   | otherwise             = confirmCreateGoalieC
 
 getGoalieNumC :: Controller
-getGoalieNumC = Controller
+getGoalieNumC = promptController goalieNumPrompt
-  { drawController = drawPrompt goalieNumPrompt
-  , handleController = \e -> do
-    promptHandler goalieNumPrompt e
-    return True
-  }
 
 getGoalieNameC :: Controller
-getGoalieNameC = Controller
+getGoalieNameC = promptController goalieNamePrompt
-  { drawController = drawPrompt goalieNamePrompt
-  , handleController = \e -> do
-    promptHandler goalieNamePrompt e
-    return True
-  }
 
 confirmCreateGoalieC :: Controller
 confirmCreateGoalieC = Controller