implemented Mtlstats.Control.EditPlayer.selectPlayerC

src/Mtlstats/Control/EditPlayer.hs

@@ -23,6 +23,7 @@ module Mtlstats.Control.EditPlayer (editPlayer) where
 
 import Lens.Micro ((^.))
 
+import Mtlstats.Prompt
 import Mtlstats.Types
 
 -- | Dispatcher/controller for the player edit mode
@@ -32,4 +33,9 @@ editPlayer eps
   | otherwise                     = undefined
 
 selectPlayerC :: Controller
-selectPlayerC = undefined
+selectPlayerC = Controller
+  { drawController   = drawPrompt playerToEditPrompt
+  , handleController = \e -> do
+    promptHandler playerToEditPrompt e
+    return True
+  }

src/Mtlstats/Prompt.hs

@@ -47,7 +47,8 @@ module Mtlstats.Prompt (
   goalieNamePrompt,
   selectGameGoaliePrompt,
   goalieMinsPlayedPrompt,
-  goalsAllowedPrompt
+  goalsAllowedPrompt,
+  playerToEditPrompt
 ) where
 
 import Control.Monad (when)
@@ -327,5 +328,8 @@ goalsAllowedPrompt = numPrompt "Goals allowed: " $ \n -> do
     modify $ progMode.gameStateL.goaliesRecorded .~ True
   modify recordGoalieStats
 
+playerToEditPrompt :: Prompt
+playerToEditPrompt = undefined
+
 drawSimplePrompt :: String -> ProgState -> C.Update ()
 drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer