From 0812ae3ddde1565186a267e45c77e852442e37a7 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Fri, 25 Oct 2019 00:45:39 -0400 Subject: [PATCH] implemented goalie name prompt --- src/Mtlstats/Control.hs | 7 ++++++- src/Mtlstats/Prompt.hs | 7 ++++++- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/src/Mtlstats/Control.hs b/src/Mtlstats/Control.hs index 11653ec..d3b6f54 100644 --- a/src/Mtlstats/Control.hs +++ b/src/Mtlstats/Control.hs @@ -349,7 +349,12 @@ getGoalieNumC = Controller } getGoalieNameC :: Controller -getGoalieNameC = undefined +getGoalieNameC = Controller + { drawController = drawPrompt goalieNamePrompt + , handleController = \e -> do + promptHandler goalieNamePrompt e + return True + } confirmCreateGoalieC :: Controller confirmCreateGoalieC = undefined diff --git a/src/Mtlstats/Prompt.hs b/src/Mtlstats/Prompt.hs index fd5e490..4d3ae45 100644 --- a/src/Mtlstats/Prompt.hs +++ b/src/Mtlstats/Prompt.hs @@ -41,7 +41,8 @@ module Mtlstats.Prompt ( recordAssistPrompt, pMinPlayerPrompt, assignPMinsPrompt, - goalieNumPrompt + goalieNumPrompt, + goalieNamePrompt ) where import Control.Monad (when) @@ -250,5 +251,9 @@ goalieNumPrompt :: Prompt goalieNumPrompt = numPrompt "Goalie number: " $ modify . (progMode.createGoalieStateL.cgsNumber ?~) +goalieNamePrompt :: Prompt +goalieNamePrompt = strPrompt "Goalie name: " $ + modify . (progMode.createGoalieStateL.cgsName .~) + drawSimplePrompt :: String -> ProgState -> C.Update () drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer