implemented Mtlstats.Control.EditGoalie.ltLossesC
This commit is contained in:
parent
2860309fc5
commit
ac3b8e9522
|
@ -109,7 +109,7 @@ ltWinsC :: Controller
|
||||||
ltWinsC = promptController editGoalieLtWinsPrompt
|
ltWinsC = promptController editGoalieLtWinsPrompt
|
||||||
|
|
||||||
ltLossesC :: Controller
|
ltLossesC :: Controller
|
||||||
ltLossesC = undefined
|
ltLossesC = promptController editGoalieLtLossesPrompt
|
||||||
|
|
||||||
ltTiesC :: Controller
|
ltTiesC :: Controller
|
||||||
ltTiesC = undefined
|
ltTiesC = undefined
|
||||||
|
|
|
@ -33,6 +33,7 @@ module Mtlstats.Prompt.EditGoalie
|
||||||
, editGoalieLtMinsPrompt
|
, editGoalieLtMinsPrompt
|
||||||
, editGoalieLtGoalsPrompt
|
, editGoalieLtGoalsPrompt
|
||||||
, editGoalieLtWinsPrompt
|
, editGoalieLtWinsPrompt
|
||||||
|
, editGoalieLtLossesPrompt
|
||||||
) where
|
) where
|
||||||
|
|
||||||
import Control.Monad.Trans.State (modify)
|
import Control.Monad.Trans.State (modify)
|
||||||
|
@ -106,3 +107,7 @@ editGoalieLtGoalsPrompt = numPrompt "Lifetime goals allowed: " $
|
||||||
editGoalieLtWinsPrompt :: Prompt
|
editGoalieLtWinsPrompt :: Prompt
|
||||||
editGoalieLtWinsPrompt = numPrompt "Lifetime wins: " $
|
editGoalieLtWinsPrompt = numPrompt "Lifetime wins: " $
|
||||||
modify . editGoalieLtWins
|
modify . editGoalieLtWins
|
||||||
|
|
||||||
|
-- | Prompt to edit a goalie's lifetime losses
|
||||||
|
editGoalieLtLossesPrompt :: Prompt
|
||||||
|
editGoalieLtLossesPrompt = undefined
|
||||||
|
|
Loading…
Reference in New Issue
Block a user