Merge pull request #43 from mtlstats/bugfix-uc-hangs

bugfix: uppercase prompt hangs
2019-12-02 14:34:39 -05:00 · 2019-12-02 14:34:39 -05:00 · 427ad12603
parent 9e6b71c464 1ca2ffc378
commit 427ad12603
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