From e50861613d4bb4f825bf1c55fd7f8f50ae402bff Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Thu, 14 Nov 2019 01:49:22 -0500 Subject: [PATCH] implemented Mtlstats.Control.EditGoalie.ytdLossesC --- 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 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