diff --git a/src/Mtlstats/Actions/EditGoalie.hs b/src/Mtlstats/Actions/EditGoalie.hs index ec4a1de..9d3dae9 100644 --- a/src/Mtlstats/Actions/EditGoalie.hs +++ b/src/Mtlstats/Actions/EditGoalie.hs @@ -25,6 +25,7 @@ module Mtlstats.Actions.EditGoalie , editGoalieYtdGames , editGoalieYtdMins , editGoalieYtdGoals + , editGoalieYtdWins ) where import Control.Monad (void) @@ -74,6 +75,14 @@ editGoalieYtdGoals -> ProgState editGoalieYtdGoals goals = editGoalie (gYtd.gsGoalsAllowed .~ goals) EGYtd +-- | Edits a goalie's YTD wins +editGoalieYtdWins + :: Int + -- ^ The number of wins + -> ProgState + -> ProgState +editGoalieYtdWins = undefined + editGoalie :: (Goalie -> Goalie) -> EditGoalieMode -> ProgState -> ProgState editGoalie f mode s = fromMaybe s $ do gid <- s^.progMode.editGoalieStateL.egsSelectedGoalie diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs index f3b0aee..6a774ba 100644 --- a/src/Mtlstats/Prompt/EditGoalie.hs +++ b/src/Mtlstats/Prompt/EditGoalie.hs @@ -68,4 +68,5 @@ editGoalieYtdGoalsPrompt = numPrompt "Year-to-date goals allowed: " $ -- | Prompt to edit a goalie's YTD wins editGoalieYtdWinsPrompt :: Prompt -editGoalieYtdWinsPrompt = undefined +editGoalieYtdWinsPrompt = numPrompt "Year-to-date wins: " $ + modify . editGoalieYtdWins