implemented editGoalieLtLossesPrompt

src/Mtlstats/Actions/EditGoalie.hs

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

src/Mtlstats/Prompt/EditGoalie.hs

@@ -110,4 +110,5 @@ editGoalieLtWinsPrompt = numPrompt "Lifetime wins: " $
 
 -- | Prompt to edit a goalie's lifetime losses
 editGoalieLtLossesPrompt :: Prompt
-editGoalieLtLossesPrompt = undefined
+editGoalieLtLossesPrompt = numPrompt "Lifetime losses: " $
+  modify . editGoalieLtLosses