implemented Mtlstats.Control.EditGoalie.ltWinsC
This commit is contained in:
parent
954fe98998
commit
13acbbdf35
|
@ -106,7 +106,7 @@ ltGoalsC :: Controller
|
||||||
ltGoalsC = promptController editGoalieLtGoalsPrompt
|
ltGoalsC = promptController editGoalieLtGoalsPrompt
|
||||||
|
|
||||||
ltWinsC :: Controller
|
ltWinsC :: Controller
|
||||||
ltWinsC = undefined
|
ltWinsC = promptController editGoalieLtWinsPrompt
|
||||||
|
|
||||||
ltLossesC :: Controller
|
ltLossesC :: Controller
|
||||||
ltLossesC = undefined
|
ltLossesC = undefined
|
||||||
|
|
|
@ -32,6 +32,7 @@ module Mtlstats.Prompt.EditGoalie
|
||||||
, editGoalieLtGamesPrompt
|
, editGoalieLtGamesPrompt
|
||||||
, editGoalieLtMinsPrompt
|
, editGoalieLtMinsPrompt
|
||||||
, editGoalieLtGoalsPrompt
|
, editGoalieLtGoalsPrompt
|
||||||
|
, editGoalieLtWinsPrompt
|
||||||
) where
|
) where
|
||||||
|
|
||||||
import Control.Monad.Trans.State (modify)
|
import Control.Monad.Trans.State (modify)
|
||||||
|
@ -100,3 +101,7 @@ editGoalieLtMinsPrompt = numPrompt "Lifetime minutes played: " $
|
||||||
editGoalieLtGoalsPrompt :: Prompt
|
editGoalieLtGoalsPrompt :: Prompt
|
||||||
editGoalieLtGoalsPrompt = numPrompt "Lifetime goals allowed: " $
|
editGoalieLtGoalsPrompt = numPrompt "Lifetime goals allowed: " $
|
||||||
modify . editGoalieLtGoals
|
modify . editGoalieLtGoals
|
||||||
|
|
||||||
|
-- | Prompt to edit a goalie's lifetime wins
|
||||||
|
editGoalieLtWinsPrompt :: Prompt
|
||||||
|
editGoalieLtWinsPrompt = undefined
|
||||||
|
|
Loading…
Reference in New Issue
Block a user