implemented editGoalieLtGamesPrompt

This commit is contained in:
Jonathan Lamothe committed 2019-11-14 03:07:26 -05:00
1 parent 8c482ae785
commit 6b1aa85010
2 files changed
+11 -1

No files matched your search

+9
View File
@@ -28,6 +28,7 @@ module Mtlstats.Actions.EditGoalie
, editGoalieYtdWins
, editGoalieYtdLosses
, editGoalieYtdTies
, editGoalieLtGames
) where
import Control.Monad (void)
@@ -101,6 +102,14 @@ editGoalieYtdTies
-> ProgState
editGoalieYtdTies ties = editGoalie (gYtd.gsTies .~ ties) EGYtd
-- | Edits a goalie's lifetime games played
editGoalieLtGames
:: Int
-- ^ The number of games
-> ProgState
-> ProgState
editGoalieLtGames = undefined
editGoalie :: (Goalie -> Goalie) -> EditGoalieMode -> ProgState -> ProgState
editGoalie f mode s = fromMaybe s $ do
gid <- s^.progMode.editGoalieStateL.egsSelectedGoalie