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