implemented editGoalieLtGoals

2019-11-14 02:35:58 -05:00
parent c0386fa0b9
commit 954fe98998
2 changed files with 33 additions and 1 deletions
--- a/src/Mtlstats/Actions/EditGoalie.hs
+++ b/src/Mtlstats/Actions/EditGoalie.hs
@@ -126,7 +126,7 @@ editGoalieLtGoals
  -- ^ The number of goals
  -> ProgState
  -> ProgState
-editGoalieLtGoals = undefined
+editGoalieLtGoals goals = editGoalie (gLifetime.gsGoalsAllowed .~ goals) EGLifetime

 editGoalie :: (Goalie -> Goalie) -> EditGoalieMode -> ProgState -> ProgState
 editGoalie f mode s = fromMaybe s $ do