force player position to upper case

2019-11-30 13:02:42 -05:00
parent 8af7974c8f
commit 05af939963
2 changed files with 2 additions and 2 deletions
--- a/src/Mtlstats/Prompt.hs
+++ b/src/Mtlstats/Prompt.hs
@@ -191,7 +191,7 @@ playerNamePrompt = strPrompt "Player name: " $

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

 -- | Prompts tor the goalie's number