implemented lifetime assists editing

2019-11-01 06:50:08 -04:00
parent 9840e5a90e
commit a07c8a0242
2 changed files with 12 additions and 1 deletions
@@ -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 ->