From 4f5b4ff5f9e009021e3a55f786692efe616da31d Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Thu, 14 Nov 2019 01:37:58 -0500 Subject: [PATCH] implemented Mtlstats.Control.EditGoalie.ytdWinsC --- 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 686ad47..1e5f755 100644 --- a/src/Mtlstats/Control/EditGoalie.hs +++ b/src/Mtlstats/Control/EditGoalie.hs @@ -88,7 +88,7 @@ ytdGoalsC :: Controller ytdGoalsC = promptController editGoalieYtdGoalsPrompt ytdWinsC :: Controller -ytdWinsC = undefined +ytdWinsC = promptController editGoalieYtdWinsPrompt ytdLossesC :: Controller ytdLossesC = undefined diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs index c31b0cd..f3b0aee 100644 --- a/src/Mtlstats/Prompt/EditGoalie.hs +++ b/src/Mtlstats/Prompt/EditGoalie.hs @@ -26,6 +26,7 @@ module Mtlstats.Prompt.EditGoalie , editGoalieYtdGamesPrompt , editGoalieYtdMinsPrompt , editGoalieYtdGoalsPrompt + , editGoalieYtdWinsPrompt ) where import Control.Monad.Trans.State (modify) @@ -64,3 +65,7 @@ editGoalieYtdMinsPrompt = numPrompt "Year-to-date minutes played: " $ editGoalieYtdGoalsPrompt :: Prompt editGoalieYtdGoalsPrompt = numPrompt "Year-to-date goals allowed: " $ modify . editGoalieYtdGoals + +-- | Prompt to edit a goalie's YTD wins +editGoalieYtdWinsPrompt :: Prompt +editGoalieYtdWinsPrompt = undefined