implemented Mtlstats.Control.EditGoalie.ytdMinsC
This commit is contained in:
parent
203650397e
commit
1b9c072a76
|
@ -82,7 +82,7 @@ ytdGamesC :: Controller
|
|||
ytdGamesC = promptController editGoalieYtdGamesPrompt
|
||||
|
||||
ytdMinsC :: Controller
|
||||
ytdMinsC = undefined
|
||||
ytdMinsC = promptController editGoalieYtdMinsPrompt
|
||||
|
||||
ytdGoalsC :: Controller
|
||||
ytdGoalsC = undefined
|
||||
|
|
|
@ -24,6 +24,7 @@ module Mtlstats.Prompt.EditGoalie
|
|||
, editGoalieNumberPrompt
|
||||
, editGoalieNamePrompt
|
||||
, editGoalieYtdGamesPrompt
|
||||
, editGoalieYtdMinsPrompt
|
||||
) where
|
||||
|
||||
import Control.Monad.Trans.State (modify)
|
||||
|
@ -52,3 +53,7 @@ editGoalieNamePrompt = strPrompt "Goalie name: " $
|
|||
editGoalieYtdGamesPrompt :: Prompt
|
||||
editGoalieYtdGamesPrompt = numPrompt "Year-to-date games played: " $
|
||||
modify . editGoalieYtdGames
|
||||
|
||||
-- | Prompt to edit a goalie's YTD minutes played
|
||||
editGoalieYtdMinsPrompt :: Prompt
|
||||
editGoalieYtdMinsPrompt = undefined
|
||||
|
|
Loading…
Reference in New Issue
Block a user