diff --git a/src/Mtlstats/Control/EditGoalie.hs b/src/Mtlstats/Control/EditGoalie.hs index e4fcc8c..52653c2 100644 --- a/src/Mtlstats/Control/EditGoalie.hs +++ b/src/Mtlstats/Control/EditGoalie.hs @@ -67,7 +67,7 @@ menuC :: Controller menuC = menuControllerWith header editGoalieMenu numberC :: Controller -numberC = undefined +numberC = promptController editGoalieNumberPrompt nameC :: Controller nameC = undefined diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs index 99f9c26..b70e4b6 100644 --- a/src/Mtlstats/Prompt/EditGoalie.hs +++ b/src/Mtlstats/Prompt/EditGoalie.hs @@ -19,7 +19,10 @@ along with this program. If not, see . -} -module Mtlstats.Prompt.EditGoalie (goalieToEditPrompt) where +module Mtlstats.Prompt.EditGoalie + ( goalieToEditPrompt + , editGoalieNumberPrompt + ) where import Control.Monad.Trans.State (modify) import Lens.Micro ((.~)) @@ -31,3 +34,7 @@ import Mtlstats.Types goalieToEditPrompt :: Prompt goalieToEditPrompt = selectGoaliePrompt "Goalie to edit: " $ modify . (progMode.editGoalieStateL.egsSelectedGoalie .~) + +-- | Prompt to edit a goalie's number +editGoalieNumberPrompt :: Prompt +editGoalieNumberPrompt = undefined