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