implement position selection prompt on player creation/edit

2020-02-13 01:58:59 -05:00
parent b9d8b263df
commit dfd226c7bd
2 changed files with 2 additions and 2 deletions
--- a/src/Mtlstats/Prompt.hs
+++ b/src/Mtlstats/Prompt.hs
@@ -238,7 +238,7 @@ playerNamePrompt = namePrompt "Player name: " $

 -- | Prompts for a new player's position
 playerPosPrompt :: Prompt
-playerPosPrompt = ucStrPrompt "Player position: " $
+playerPosPrompt = selectPositionPrompt "Player position: " $
  modify . (progMode.createPlayerStateL.cpsPosition .~)

 -- | Prompts tor the goalie's number