From 0961f14c5fbecff9b67decafb5b29d68b97dd963 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Thu, 14 Nov 2019 01:03:47 -0500
Subject: [PATCH] implemented editGoalieYtdMinsPrompt

---
 src/Mtlstats/Actions/EditGoalie.hs | 9 +++++++++
 src/Mtlstats/Prompt/EditGoalie.hs  | 3 ++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/Mtlstats/Actions/EditGoalie.hs b/src/Mtlstats/Actions/EditGoalie.hs
index ebc5ba2..6b8d6b8 100644
--- a/src/Mtlstats/Actions/EditGoalie.hs
+++ b/src/Mtlstats/Actions/EditGoalie.hs
@@ -23,6 +23,7 @@ module Mtlstats.Actions.EditGoalie
   ( editGoalieNumber
   , editGoalieName
   , editGoalieYtdGames
+  , editGoalieYtdMins
   ) where
 
 import Control.Monad (void)
@@ -56,6 +57,14 @@ editGoalieYtdGames
   -> ProgState
 editGoalieYtdGames games = editGoalie (gYtd.gsGames .~ games) EGYtd
 
+-- | Edits a goalie's YTD minutes
+editGoalieYtdMins
+  :: Int
+  -- ^ The number of minutes played
+  -> ProgState
+  -> ProgState
+editGoalieYtdMins = undefined
+
 editGoalie :: (Goalie -> Goalie) -> EditGoalieMode -> ProgState -> ProgState
 editGoalie f mode s = fromMaybe s $ do
   gid <- s^.progMode.editGoalieStateL.egsSelectedGoalie
diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs
index e36dc99..8a00818 100644
--- a/src/Mtlstats/Prompt/EditGoalie.hs
+++ b/src/Mtlstats/Prompt/EditGoalie.hs
@@ -56,4 +56,5 @@ editGoalieYtdGamesPrompt = numPrompt "Year-to-date games played: " $
 
 -- | Prompt to edit a goalie's YTD minutes played
 editGoalieYtdMinsPrompt :: Prompt
-editGoalieYtdMinsPrompt = undefined
+editGoalieYtdMinsPrompt = numPrompt "Year-to-date minutes played: " $
+  modify . editGoalieYtdMins