From 768cb47fac8c7ca25582c78ad38cbe9e25ae217f Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Mon, 2 Dec 2019 14:43:08 -0500 Subject: [PATCH] bugfix: force other team name to uppercase --- src/Mtlstats/Prompt/NewGame.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Mtlstats/Prompt/NewGame.hs b/src/Mtlstats/Prompt/NewGame.hs index a6cdfc7..edc04bb 100644 --- a/src/Mtlstats/Prompt/NewGame.hs +++ b/src/Mtlstats/Prompt/NewGame.hs @@ -55,7 +55,7 @@ gameDayPrompt = numPrompt "Day of month: " $ -- | Prompts for the other team name otherTeamPrompt :: Prompt -otherTeamPrompt = strPrompt "Other team: " $ +otherTeamPrompt = ucStrPrompt "Other team: " $ modify . (progMode.gameStateL.otherTeam .~) -- | Prompts for the home score