diff --git a/src/Mtlstats/Actions/EditGoalie.hs b/src/Mtlstats/Actions/EditGoalie.hs index e896ded..39b38d4 100644 --- a/src/Mtlstats/Actions/EditGoalie.hs +++ b/src/Mtlstats/Actions/EditGoalie.hs @@ -21,6 +21,7 @@ along with this program. If not, see . module Mtlstats.Actions.EditGoalie ( editGoalieNumber + , editGoalieName ) where import Control.Monad (void) @@ -43,3 +44,11 @@ editGoalieNumber n s = fromMaybe s $ do Just $ s & database.dbGoalies %~ modifyNth gid updateGoalie & progMode.editGoalieStateL.egsMode .~ EGMenu + +-- | Edits a goalie's name +editGoalieName + :: String + -- ^ The new name + -> ProgState + -> ProgState +editGoalieName = undefined diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs index 085fb97..443e2a3 100644 --- a/src/Mtlstats/Prompt/EditGoalie.hs +++ b/src/Mtlstats/Prompt/EditGoalie.hs @@ -44,4 +44,5 @@ editGoalieNumberPrompt = numPrompt "Goalie number: " $ -- | Prompt to edit a goalie's name editGoalieNamePrompt :: Prompt -editGoalieNamePrompt = undefined +editGoalieNamePrompt = strPrompt "Goalie name: " $ + modify . editGoalieName