implemented nameC

2019-11-01 06:10:37 -04:00
parent ece289d68d
commit 911a61ba57
2 changed files with 14 additions and 2 deletions
--- a/src/Mtlstats/Control/EditPlayer.hs
+++ b/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