implemented lifetime penalty minutes editing

src/Mtlstats/Control/EditPlayer.hs

@@ -135,4 +135,9 @@ ltAssistsC = Controller
   }
 
 ltPMinC :: Controller
-ltPMinC = undefined
+ltPMinC = Controller
+  { drawController   = drawPrompt editPlayerLtPMinPrompt
+  , handleController = \e -> do
+    promptHandler editPlayerLtPMinPrompt e
+    return True
+  }

src/Mtlstats/Prompt/EditPlayer.hs

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