implemented year-to-date assist editing

src/Mtlstats/Control/EditPlayer.hs

@@ -103,7 +103,12 @@ ytdGoalsC = Controller
   }
 
 ytdAssistsC :: Controller
-ytdAssistsC = undefined
+ytdAssistsC = Controller
+  { drawController   = drawPrompt editPlayerYtdAssistsPrompt
+  , handleController = \e -> do
+    promptHandler editPlayerYtdAssistsPrompt e
+    return True
+  }
 
 ytdPMinC :: Controller
 ytdPMinC = undefined

src/Mtlstats/Prompt/EditPlayer.hs

@@ -24,6 +24,7 @@ module Mtlstats.Prompt.EditPlayer
   , editPlayerNamePrompt
   , editPlayerPosPrompt
   , editPlayerYtdGoalsPrompt
+  , editPlayerYtdAssistsPrompt
   ) where
 
 import Control.Monad.Extra (whenJustM)
@@ -54,6 +55,11 @@ editPlayerYtdGoalsPrompt :: Prompt
 editPlayerYtdGoalsPrompt = numPrompt "Year-to-date goals: " $
   editPlayer . (pYtd.psGoals .~)
 
+-- | Prompt to edit a player's year-to-date assists
+editPlayerYtdAssistsPrompt :: Prompt
+editPlayerYtdAssistsPrompt = numPrompt "Year-to-date assists: " $
+  editPlayer . (pYtd.psAssists .~)
+
 editPlayer :: (Player -> Player) -> Action ()
 editPlayer f =
   whenJustM (gets (^.progMode.editPlayerStateL.epsSelectedPlayer)) $ \pid ->