implemented Mtlstats.Control.EditGoalie.ltTiesC
This commit is contained in:
parent
9456102935
commit
aac2752e95
|
@ -112,7 +112,7 @@ ltLossesC :: Controller
|
|||
ltLossesC = promptController editGoalieLtLossesPrompt
|
||||
|
||||
ltTiesC :: Controller
|
||||
ltTiesC = undefined
|
||||
ltTiesC = promptController editGoalieLtTiesPrompt
|
||||
|
||||
header :: ProgState -> C.Update ()
|
||||
header s = C.drawString $ fromMaybe "" $ do
|
||||
|
|
|
@ -34,6 +34,7 @@ module Mtlstats.Prompt.EditGoalie
|
|||
, editGoalieLtGoalsPrompt
|
||||
, editGoalieLtWinsPrompt
|
||||
, editGoalieLtLossesPrompt
|
||||
, editGoalieLtTiesPrompt
|
||||
) where
|
||||
|
||||
import Control.Monad.Trans.State (modify)
|
||||
|
@ -112,3 +113,7 @@ editGoalieLtWinsPrompt = numPrompt "Lifetime wins: " $
|
|||
editGoalieLtLossesPrompt :: Prompt
|
||||
editGoalieLtLossesPrompt = numPrompt "Lifetime losses: " $
|
||||
modify . editGoalieLtLosses
|
||||
|
||||
-- | Prompt to edit a goalie's lifetime ties
|
||||
editGoalieLtTiesPrompt :: Prompt
|
||||
editGoalieLtTiesPrompt = undefined
|
||||
|
|
Loading…
Reference in New Issue
Block a user