implemented editGoalieYtdLossesPrompt

src/Mtlstats/Actions/EditGoalie.hs

@@ -26,6 +26,7 @@ module Mtlstats.Actions.EditGoalie
   , editGoalieYtdMins
   , editGoalieYtdGoals
   , editGoalieYtdWins
+  , editGoalieYtdLosses
   ) where
 
 import Control.Monad (void)
@@ -83,6 +84,14 @@ editGoalieYtdWins
   -> ProgState
 editGoalieYtdWins wins = editGoalie (gYtd.gsWins .~ wins) EGYtd
 
+-- | Edits a goalie's YTD losses
+editGoalieYtdLosses
+  :: Int
+  -- ^ The number of losses
+  -> ProgState
+  -> ProgState
+editGoalieYtdLosses = undefined
+
 editGoalie :: (Goalie -> Goalie) -> EditGoalieMode -> ProgState -> ProgState
 editGoalie f mode s = fromMaybe s $ do
   gid <- s^.progMode.editGoalieStateL.egsSelectedGoalie

src/Mtlstats/Prompt/EditGoalie.hs

@@ -74,4 +74,5 @@ editGoalieYtdWinsPrompt = numPrompt "Year-to-date wins: " $
 
 -- | Prompt to edit a goalie's YTD losses
 editGoalieYtdLossesPrompt :: Prompt
-editGoalieYtdLossesPrompt = undefined
+editGoalieYtdLossesPrompt = numPrompt "Year-to-date losses: " $
+  modify . editGoalieYtdLosses