From 846d0344350c2a50864f37cf2483da5d9fa26ebe Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Thu, 14 Nov 2019 02:28:53 -0500 Subject: [PATCH] implemented Mtlstats.Control.EditGoalie.ltGoalsC --- 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 8ed140d..229b6ac 100644 --- a/src/Mtlstats/Control/EditGoalie.hs +++ b/src/Mtlstats/Control/EditGoalie.hs @@ -103,7 +103,7 @@ ltMinsC :: Controller ltMinsC = promptController editGoalieLtMinsPrompt ltGoalsC :: Controller -ltGoalsC = undefined +ltGoalsC = promptController editGoalieLtGoalsPrompt ltWinsC :: Controller ltWinsC = undefined diff --git a/src/Mtlstats/Prompt/EditGoalie.hs b/src/Mtlstats/Prompt/EditGoalie.hs index 1181ed0..8e17341 100644 --- a/src/Mtlstats/Prompt/EditGoalie.hs +++ b/src/Mtlstats/Prompt/EditGoalie.hs @@ -31,6 +31,7 @@ module Mtlstats.Prompt.EditGoalie , editGoalieYtdTiesPrompt , editGoalieLtGamesPrompt , editGoalieLtMinsPrompt + , editGoalieLtGoalsPrompt ) where import Control.Monad.Trans.State (modify) @@ -94,3 +95,7 @@ editGoalieLtGamesPrompt = numPrompt "Lifetime games played: " $ editGoalieLtMinsPrompt :: Prompt editGoalieLtMinsPrompt = numPrompt "Lifetime minutes played: " $ modify . editGoalieLtMins + +-- | Prompt to edit a goalie's lifetime goals allowed +editGoalieLtGoalsPrompt :: Prompt +editGoalieLtGoalsPrompt = undefined