implemented nameC

src/Mtlstats/Control/EditPlayer.hs

@@ -79,7 +79,12 @@ numberC = Controller
   }
 
 nameC :: Controller
-nameC = undefined
+nameC = Controller
+  { drawController   = drawPrompt editPlayerNamePrompt
+  , handleController = \e -> do
+    promptHandler editPlayerNamePrompt e
+    return True
+  }
 
 positionC :: Controller
 positionC = undefined

src/Mtlstats/Prompt/EditPlayer.hs

@@ -19,7 +19,10 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 -}
 
-module Mtlstats.Prompt.EditPlayer (editPlayerNumPrompt) where
+module Mtlstats.Prompt.EditPlayer
+  ( editPlayerNumPrompt
+  , editPlayerNamePrompt
+  ) where
 
 import Control.Monad.Extra (whenJustM)
 import Control.Monad.Trans.State (gets, modify)
@@ -36,3 +39,7 @@ editPlayerNumPrompt = numPrompt "Player number: " $ \n ->
     modify
       $ (database.dbPlayers %~ modifyNth pid (pNumber .~ n))
       . (progMode.editPlayerStateL.epsMode .~ EPMenu)
+
+-- | Prompt to edit a player's name
+editPlayerNamePrompt :: Prompt
+editPlayerNamePrompt = undefined