implemented year-to-date penalty minute editing

2019-11-01 06:50:08 -04:00
parent 24b304047c
commit c9b198d106
2 changed files with 12 additions and 1 deletions
@@ -25,6 +25,7 @@ module Mtlstats.Prompt.EditPlayer
  , editPlayerPosPrompt
  , editPlayerYtdGoalsPrompt
  , editPlayerYtdAssistsPrompt
+  , editPlayerYtdPMinPrompt
  ) where

 import Control.Monad.Extra (whenJustM)
@@ -60,6 +61,11 @@ editPlayerYtdAssistsPrompt :: Prompt
 editPlayerYtdAssistsPrompt = numPrompt "Year-to-date assists: " $
  editPlayer . (pYtd.psAssists .~)

+-- | Prompt to edit a player's year-to-date penalty minutes
+editPlayerYtdPMinPrompt :: Prompt
+editPlayerYtdPMinPrompt = numPrompt "Year-to-date penalty minutes: " $
+  editPlayer . (pYtd.psPMin .~)
+
 editPlayer :: (Player -> Player) -> Action ()
 editPlayer f =
  whenJustM (gets (^.progMode.editPlayerStateL.epsSelectedPlayer)) $ \pid ->