diff --git a/src/Mtlstats/Control/EditGoalie.hs b/src/Mtlstats/Control/EditGoalie.hs index 1e5f755..89e8f0b 100644 --- a/src/Mtlstats/Control/EditGoalie.hs +++ b/src/Mtlstats/Control/EditGoalie.hs @@ -91,7 +91,7 @@ ytdWinsC :: Controller ytdWinsC = promptController editGoalieYtdWinsPrompt ytdLossesC :: Controller -ytdLossesC = undefined +ytdLossesC = promptController editGoalieYtdLossesPrompt ytdTiesC :: Controller ytdTiesC = undefined diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs index 6a774ba..174f568 100644 --- a/src/Mtlstats/Prompt/EditGoalie.hs +++ b/src/Mtlstats/Prompt/EditGoalie.hs @@ -27,6 +27,7 @@ module Mtlstats.Prompt.EditGoalie , editGoalieYtdMinsPrompt , editGoalieYtdGoalsPrompt , editGoalieYtdWinsPrompt + , editGoalieYtdLossesPrompt ) where import Control.Monad.Trans.State (modify) @@ -70,3 +71,7 @@ editGoalieYtdGoalsPrompt = numPrompt "Year-to-date goals allowed: " $ editGoalieYtdWinsPrompt :: Prompt editGoalieYtdWinsPrompt = numPrompt "Year-to-date wins: " $ modify . editGoalieYtdWins + +-- | Prompt to edit a goalie's YTD losses +editGoalieYtdLossesPrompt :: Prompt +editGoalieYtdLossesPrompt = undefined