implemented editGoalieYtdTiesPrompt
This commit is contained in:
parent
b8aa00aa81
commit
101f436424
|
@ -27,6 +27,7 @@ module Mtlstats.Actions.EditGoalie
|
|||
, editGoalieYtdGoals
|
||||
, editGoalieYtdWins
|
||||
, editGoalieYtdLosses
|
||||
, editGoalieYtdTies
|
||||
) where
|
||||
|
||||
import Control.Monad (void)
|
||||
|
@ -92,6 +93,14 @@ editGoalieYtdLosses
|
|||
-> ProgState
|
||||
editGoalieYtdLosses losses = editGoalie (gYtd.gsLosses .~ losses) EGYtd
|
||||
|
||||
-- | Edits a goalie's YTD ties
|
||||
editGoalieYtdTies
|
||||
:: Int
|
||||
-- ^ The number of ties
|
||||
-> ProgState
|
||||
-> ProgState
|
||||
editGoalieYtdTies = undefined
|
||||
|
||||
editGoalie :: (Goalie -> Goalie) -> EditGoalieMode -> ProgState -> ProgState
|
||||
editGoalie f mode s = fromMaybe s $ do
|
||||
gid <- s^.progMode.editGoalieStateL.egsSelectedGoalie
|
||||
|
|
|
@ -80,4 +80,5 @@ editGoalieYtdLossesPrompt = numPrompt "Year-to-date losses: " $
|
|||
|
||||
-- | Prompt to edit a goalie's YTD ties
|
||||
editGoalieYtdTiesPrompt :: Prompt
|
||||
editGoalieYtdTiesPrompt = undefined
|
||||
editGoalieYtdTiesPrompt = numPrompt "Year-to-date ties: " $
|
||||
modify . editGoalieYtdTies
|
||||
|
|
Loading…
Reference in New Issue
Block a user