implemented Mtlstats.Control.EditGoalie.ltLossesC

This commit is contained in:
Jonathan Lamothe 2019-11-14 02:47:57 -05:00
parent 2860309fc5
commit ac3b8e9522
2 changed files with 6 additions and 1 deletions

View File

@ -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

View File

@ -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