diff --git a/src/Mtlstats/Control/EditGoalie.hs b/src/Mtlstats/Control/EditGoalie.hs index 89e8f0b..ad164ae 100644 --- a/src/Mtlstats/Control/EditGoalie.hs +++ b/src/Mtlstats/Control/EditGoalie.hs @@ -94,7 +94,7 @@ ytdLossesC :: Controller ytdLossesC = promptController editGoalieYtdLossesPrompt ytdTiesC :: Controller -ytdTiesC = undefined +ytdTiesC = promptController editGoalieYtdTiesPrompt ltGamesC :: Controller ltGamesC = undefined diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs index 34e2bde..c0158a8 100644 --- a/src/Mtlstats/Prompt/EditGoalie.hs +++ b/src/Mtlstats/Prompt/EditGoalie.hs @@ -28,6 +28,7 @@ module Mtlstats.Prompt.EditGoalie , editGoalieYtdGoalsPrompt , editGoalieYtdWinsPrompt , editGoalieYtdLossesPrompt + , editGoalieYtdTiesPrompt ) where import Control.Monad.Trans.State (modify) @@ -76,3 +77,7 @@ editGoalieYtdWinsPrompt = numPrompt "Year-to-date wins: " $ editGoalieYtdLossesPrompt :: Prompt editGoalieYtdLossesPrompt = numPrompt "Year-to-date losses: " $ modify . editGoalieYtdLosses + +-- | Prompt to edit a goalie's YTD ties +editGoalieYtdTiesPrompt :: Prompt +editGoalieYtdTiesPrompt = undefined