From d55f7b1f50cd4e4e84594b6a3a0f78fcd34e8048 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Sun, 4 Jun 2023 17:53:48 -0400
Subject: [PATCH] force capitalization in ucStrPrompt

---
 ChangeLog.md           | 5 ++++-
 src/Mtlstats/Prompt.hs | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/ChangeLog.md b/ChangeLog.md
index 4cce03e..7eba828 100644
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,9 +1,12 @@
 # Changelog for mtlstats
 
 ## current
-- updated code to use brick instead of ncurses
+- fixed autocapitalization
 
 ## 0.17.0
+- updated code to use brick instead of ncurses
+
+## 0.16.1
 - Don't automatically start a new game on new season
 
 ## 0.16.0
diff --git a/src/Mtlstats/Prompt.hs b/src/Mtlstats/Prompt.hs
index 6e654fb..817c687 100644
--- a/src/Mtlstats/Prompt.hs
+++ b/src/Mtlstats/Prompt.hs
@@ -127,7 +127,7 @@ ucStrPrompt
   -- ^ The callback function for the result
   -> Prompt
 ucStrPrompt pStr act = (strPrompt pStr act)
-  { promptProcessChar = \ch -> editContentsL %~ insertChar ch }
+  { promptProcessChar = \ch -> editContentsL %~ insertChar (toUpper ch) }
 
 -- | Creates a prompt which forces capitalization of input to
 -- accomodate a player or goalie name