implemented lifetime assists editing

src/Mtlstats/Control/EditPlayer.hs

@@ -127,7 +127,12 @@ ltGoalsC = Controller
   }
 
 ltAssistsC :: Controller
-ltAssistsC = undefined
+ltAssistsC = Controller
+  { drawController   = drawPrompt editPlayerLtAssistsPrompt
+  , handleController = \e -> do
+    promptHandler editPlayerLtAssistsPrompt e
+    return True
+  }
 
 ltPMinC :: Controller
 ltPMinC = undefined

src/Mtlstats/Prompt/EditPlayer.hs

@@ -27,6 +27,7 @@ module Mtlstats.Prompt.EditPlayer
   , editPlayerYtdAssistsPrompt
   , editPlayerYtdPMinPrompt
   , editPlayerLtGoalsPrompt
+  , editPlayerLtAssistsPrompt
   ) where
 
 import Control.Monad.Extra (whenJustM)
@@ -72,6 +73,11 @@ editPlayerLtGoalsPrompt :: Prompt
 editPlayerLtGoalsPrompt = numPrompt "Lifetime goals: " $
   editPlayer . (pLifetime.psGoals .~)
 
+-- | Prompt to edit a player's lifetime assists
+editPlayerLtAssistsPrompt :: Prompt
+editPlayerLtAssistsPrompt = numPrompt "Lifetime assists: " $
+  editPlayer . (pLifetime.psAssists .~)
+
 editPlayer :: (Player -> Player) -> Action ()
 editPlayer f =
   whenJustM (gets (^.progMode.editPlayerStateL.epsSelectedPlayer)) $ \pid ->