diff --git a/src/Mtlstats/Control/EditGoalie.hs b/src/Mtlstats/Control/EditGoalie.hs index 7f21af6..e5bec42 100644 --- a/src/Mtlstats/Control/EditGoalie.hs +++ b/src/Mtlstats/Control/EditGoalie.hs @@ -82,7 +82,7 @@ ytdGamesC :: Controller ytdGamesC = promptController editGoalieYtdGamesPrompt ytdMinsC :: Controller -ytdMinsC = undefined +ytdMinsC = promptController editGoalieYtdMinsPrompt ytdGoalsC :: Controller ytdGoalsC = undefined diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs index aac4311..e36dc99 100644 --- a/src/Mtlstats/Prompt/EditGoalie.hs +++ b/src/Mtlstats/Prompt/EditGoalie.hs @@ -24,6 +24,7 @@ module Mtlstats.Prompt.EditGoalie , editGoalieNumberPrompt , editGoalieNamePrompt , editGoalieYtdGamesPrompt + , editGoalieYtdMinsPrompt ) where import Control.Monad.Trans.State (modify) @@ -52,3 +53,7 @@ editGoalieNamePrompt = strPrompt "Goalie name: " $ editGoalieYtdGamesPrompt :: Prompt editGoalieYtdGamesPrompt = numPrompt "Year-to-date games played: " $ modify . editGoalieYtdGames + +-- | Prompt to edit a goalie's YTD minutes played +editGoalieYtdMinsPrompt :: Prompt +editGoalieYtdMinsPrompt = undefined