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