prompt for player name

src/Mtlstats/Control.hs

@@ -55,6 +55,7 @@ dispatch s = case s^.progMode of
     | otherwise               -> reportC
   CreatePlayer cps
     | null $ cps^.cpsNumber -> getPlayerNumC
+    | null $ cps^.cpsName   -> getPlayerNameC
     | otherwise             -> undefined
 
 mainMenuC :: Controller
@@ -205,3 +206,11 @@ getPlayerNumC = Controller
     promptHandler playerNumPrompt e
     return True
   }
+
+getPlayerNameC :: Controller
+getPlayerNameC = Controller
+  { drawController   = drawPrompt playerNamePrompt
+  , handleController = \e -> do
+    promptHandler playerNamePrompt e
+    return True
+  }