implemented year-to-date penalty minute editing

src/Mtlstats/Control/EditPlayer.hs

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

src/Mtlstats/Prompt/EditPlayer.hs

@@ -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 ->