From 06348fe9289a4b64e0567e4c2a9d0b9073c0bdc5 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Thu, 14 Nov 2019 00:44:38 -0500 Subject: [PATCH] implemented Mtlstats.Control.EditGoalie.ytdGamesC --- 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 8d7eefa..7f21af6 100644 --- a/src/Mtlstats/Control/EditGoalie.hs +++ b/src/Mtlstats/Control/EditGoalie.hs @@ -79,7 +79,7 @@ lifetimeMenuC :: Controller lifetimeMenuC = menuControllerWith header editGoalieLtMenu ytdGamesC :: Controller -ytdGamesC = undefined +ytdGamesC = promptController editGoalieYtdGamesPrompt ytdMinsC :: Controller ytdMinsC = undefined diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs index 443e2a3..2f9224d 100644 --- a/src/Mtlstats/Prompt/EditGoalie.hs +++ b/src/Mtlstats/Prompt/EditGoalie.hs @@ -23,6 +23,7 @@ module Mtlstats.Prompt.EditGoalie ( goalieToEditPrompt , editGoalieNumberPrompt , editGoalieNamePrompt + , editGoalieYtdGamesPrompt ) where import Control.Monad.Trans.State (modify) @@ -46,3 +47,7 @@ editGoalieNumberPrompt = numPrompt "Goalie number: " $ editGoalieNamePrompt :: Prompt editGoalieNamePrompt = strPrompt "Goalie name: " $ modify . editGoalieName + +-- | Prompt to edit a goalie's YTD games played +editGoalieYtdGamesPrompt :: Prompt +editGoalieYtdGamesPrompt = undefined