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