From 895f090f1789fbc2e5ff2bd926d4a7f964b5a884 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Wed, 13 Nov 2019 11:34:25 -0500 Subject: [PATCH] implenented Mtlstats.Control.EditGoalie.nameC --- src/Mtlstats/Control/EditGoalie.hs | 2 +- src/Mtlstats/Prompt/EditGoalie.hs | 5 +++++ 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/src/Mtlstats/Control/EditGoalie.hs b/src/Mtlstats/Control/EditGoalie.hs index 52653c2..802b3b1 100644 --- a/src/Mtlstats/Control/EditGoalie.hs +++ b/src/Mtlstats/Control/EditGoalie.hs @@ -70,7 +70,7 @@ numberC :: Controller numberC = promptController editGoalieNumberPrompt nameC :: Controller -nameC = undefined +nameC = promptController editGoalieNamePrompt ytdMenuC :: Controller ytdMenuC = undefined diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs index e662ce4..085fb97 100644 --- a/src/Mtlstats/Prompt/EditGoalie.hs +++ b/src/Mtlstats/Prompt/EditGoalie.hs @@ -22,6 +22,7 @@ along with this program. If not, see . module Mtlstats.Prompt.EditGoalie ( goalieToEditPrompt , editGoalieNumberPrompt + , editGoalieNamePrompt ) where import Control.Monad.Trans.State (modify) @@ -40,3 +41,7 @@ goalieToEditPrompt = selectGoaliePrompt "Goalie to edit: " $ editGoalieNumberPrompt :: Prompt editGoalieNumberPrompt = numPrompt "Goalie number: " $ modify . editGoalieNumber + +-- | Prompt to edit a goalie's name +editGoalieNamePrompt :: Prompt +editGoalieNamePrompt = undefined