implemented editGoalieLtWinsPrompt

src/Mtlstats/Actions/EditGoalie.hs

@@ -31,6 +31,7 @@ module Mtlstats.Actions.EditGoalie
   , editGoalieLtGames
   , editGoalieLtMins
   , editGoalieLtGoals
+  , editGoalieLtWins
   ) where
 
 import Control.Monad (void)
@@ -128,6 +129,14 @@ editGoalieLtGoals
   -> ProgState
 editGoalieLtGoals goals = editGoalie (gLifetime.gsGoalsAllowed .~ goals) EGLifetime
 
+-- | Edits a goalie's lifetime wins
+editGoalieLtWins
+  :: Int
+  -- ^ The number of wins
+  -> ProgState
+  -> ProgState
+editGoalieLtWins = undefined
+
 editGoalie :: (Goalie -> Goalie) -> EditGoalieMode -> ProgState -> ProgState
 editGoalie f mode s = fromMaybe s $ do
   gid <- s^.progMode.editGoalieStateL.egsSelectedGoalie

src/Mtlstats/Prompt/EditGoalie.hs

@@ -104,4 +104,5 @@ editGoalieLtGoalsPrompt = numPrompt "Lifetime goals allowed: " $
 
 -- | Prompt to edit a goalie's lifetime wins
 editGoalieLtWinsPrompt :: Prompt
-editGoalieLtWinsPrompt = undefined
+editGoalieLtWinsPrompt = numPrompt "Lifetime wins: " $
+  modify . editGoalieLtWins