From 1ca2ffc378a068e7ce17d5079c167e48b9229829 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Mon, 2 Dec 2019 13:46:43 -0500
Subject: [PATCH] bugfix: uppercase prompt hangs

---
 src/Mtlstats/Prompt.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Mtlstats/Prompt.hs b/src/Mtlstats/Prompt.hs
index 5f43c06..4ac5316 100644
--- 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