implemented Mtlstats.Control.EditGoalie.ytdWinsC
This commit is contained in:
parent
cb5aa63469
commit
4f5b4ff5f9
|
@ -88,7 +88,7 @@ ytdGoalsC :: Controller
|
|||
ytdGoalsC = promptController editGoalieYtdGoalsPrompt
|
||||
|
||||
ytdWinsC :: Controller
|
||||
ytdWinsC = undefined
|
||||
ytdWinsC = promptController editGoalieYtdWinsPrompt
|
||||
|
||||
ytdLossesC :: Controller
|
||||
ytdLossesC = undefined
|
||||
|
|
|
@ -26,6 +26,7 @@ module Mtlstats.Prompt.EditGoalie
|
|||
, editGoalieYtdGamesPrompt
|
||||
, editGoalieYtdMinsPrompt
|
||||
, editGoalieYtdGoalsPrompt
|
||||
, editGoalieYtdWinsPrompt
|
||||
) where
|
||||
|
||||
import Control.Monad.Trans.State (modify)
|
||||
|
@ -64,3 +65,7 @@ editGoalieYtdMinsPrompt = numPrompt "Year-to-date minutes played: " $
|
|||
editGoalieYtdGoalsPrompt :: Prompt
|
||||
editGoalieYtdGoalsPrompt = numPrompt "Year-to-date goals allowed: " $
|
||||
modify . editGoalieYtdGoals
|
||||
|
||||
-- | Prompt to edit a goalie's YTD wins
|
||||
editGoalieYtdWinsPrompt :: Prompt
|
||||
editGoalieYtdWinsPrompt = undefined
|
||||
|
|
Loading…
Reference in New Issue
Block a user