implemented editGoalieYtdGoals

This commit is contained in:
Jonathan Lamothe
2019-11-14 01:32:20 -05:00
parent 817c3c3fed
commit cb5aa63469
2 changed files with 33 additions and 1 deletions

View File

@@ -72,7 +72,7 @@ editGoalieYtdGoals
-- ^ The number of goals
-> ProgState
-> ProgState
editGoalieYtdGoals = undefined
editGoalieYtdGoals goals = editGoalie (gYtd.gsGoalsAllowed .~ goals) EGYtd
editGoalie :: (Goalie -> Goalie) -> EditGoalieMode -> ProgState -> ProgState
editGoalie f mode s = fromMaybe s $ do