bugfix: uppercase prompt hangs
This commit is contained in:
parent
9e6b71c464
commit
1ca2ffc378
|
@ -123,7 +123,7 @@ ucStrPrompt
|
|||
-> (String -> Action ())
|
||||
-- ^ The callback function for the result
|
||||
-> Prompt
|
||||
ucStrPrompt pStr act = (ucStrPrompt pStr act)
|
||||
ucStrPrompt pStr act = (strPrompt pStr act)
|
||||
{ promptProcessChar = \ch -> (++ [toUpper ch]) }
|
||||
|
||||
-- | Builds a numeric prompt
|
||||
|
|
Loading…
Reference in New Issue
Block a user