force capitalization in ucStrPrompt

2023-06-04 17:53:48 -04:00
parent a5679cb1fc
commit d55f7b1f50
2 changed files with 5 additions and 2 deletions
@@ -127,7 +127,7 @@ ucStrPrompt
  -- ^ The callback function for the result
  -> Prompt
 ucStrPrompt pStr act = (strPrompt pStr act)
-  { promptProcessChar = \ch -> editContentsL %~ insertChar ch }
+  { promptProcessChar = \ch -> editContentsL %~ insertChar (toUpper ch) }

 -- | Creates a prompt which forces capitalization of input to
 -- accomodate a player or goalie name