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