fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

use promptController in Mtlstats.Control.CreateGoalie

This commit is contained in:
Jonathan Lamothe 2020-02-13 14:45:43 -05:00
parent 2941998058
commit fe28e96145
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Mtlstats/Control/CreateGoalie.hs
View File

@ -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