bugfix: uppercase prompt hangs

2019-12-02 13:46:43 -05:00 · 2019-12-02 13:46:43 -05:00 · 1ca2ffc378
parent 9e6b71c464
commit 1ca2ffc378
1 changed files with 1 additions and 1 deletions
--- a/src/Mtlstats/Prompt.hs
+++ b/src/Mtlstats/Prompt.hs
@ -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