implemented editGoalieYtdTiesPrompt

src/Mtlstats/Actions/EditGoalie.hs

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

src/Mtlstats/Prompt/EditGoalie.hs

@@ -80,4 +80,5 @@ editGoalieYtdLossesPrompt = numPrompt "Year-to-date losses: " $
 
 -- | Prompt to edit a goalie's YTD ties
 editGoalieYtdTiesPrompt :: Prompt
-editGoalieYtdTiesPrompt = undefined
+editGoalieYtdTiesPrompt = numPrompt "Year-to-date ties: " $
+  modify . editGoalieYtdTies