From b8aa00aa81ace38c3513dab1e4870f8823c5f78b Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Thu, 14 Nov 2019 02:00:10 -0500 Subject: [PATCH] implemented Mtlstats.Control.EditGoalie.ytdTiesC --- src/Mtlstats/Control/EditGoalie.hs | 2 +- src/Mtlstats/Prompt/EditGoalie.hs | 5 +++++ 2 files changed, 6 insertions(+), 1 deletion(-) 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