implemented playerToEditPrompt

This commit is contained in:
Jonathan Lamothe 2019-11-01 03:44:03 -04:00
parent 8b1e93386a
commit 20ee194035

View File

@ -329,7 +329,8 @@ goalsAllowedPrompt = numPrompt "Goals allowed: " $ \n -> do
modify recordGoalieStats modify recordGoalieStats
playerToEditPrompt :: Prompt playerToEditPrompt :: Prompt
playerToEditPrompt = undefined playerToEditPrompt = selectPlayerPrompt "Player to edit: " $
modify . (progMode.editPlayerStateL.epsSelectedPlayer .~)
drawSimplePrompt :: String -> ProgState -> C.Update () drawSimplePrompt :: String -> ProgState -> C.Update ()
drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer