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