implemented Mtlstats.Control.EditGoalie.ytdMinsC

This commit is contained in:
Jonathan Lamothe 2019-11-14 01:01:30 -05:00
parent 203650397e
commit 1b9c072a76
2 changed files with 6 additions and 1 deletions

View File

@ -82,7 +82,7 @@ ytdGamesC :: Controller
ytdGamesC = promptController editGoalieYtdGamesPrompt ytdGamesC = promptController editGoalieYtdGamesPrompt
ytdMinsC :: Controller ytdMinsC :: Controller
ytdMinsC = undefined ytdMinsC = promptController editGoalieYtdMinsPrompt
ytdGoalsC :: Controller ytdGoalsC :: Controller
ytdGoalsC = undefined ytdGoalsC = undefined

View File

@ -24,6 +24,7 @@ module Mtlstats.Prompt.EditGoalie
, editGoalieNumberPrompt , editGoalieNumberPrompt
, editGoalieNamePrompt , editGoalieNamePrompt
, editGoalieYtdGamesPrompt , editGoalieYtdGamesPrompt
, editGoalieYtdMinsPrompt
) where ) where
import Control.Monad.Trans.State (modify) import Control.Monad.Trans.State (modify)
@ -52,3 +53,7 @@ editGoalieNamePrompt = strPrompt "Goalie name: " $
editGoalieYtdGamesPrompt :: Prompt editGoalieYtdGamesPrompt :: Prompt
editGoalieYtdGamesPrompt = numPrompt "Year-to-date games played: " $ editGoalieYtdGamesPrompt = numPrompt "Year-to-date games played: " $
modify . editGoalieYtdGames modify . editGoalieYtdGames
-- | Prompt to edit a goalie's YTD minutes played
editGoalieYtdMinsPrompt :: Prompt
editGoalieYtdMinsPrompt = undefined