Merge pull request #44 from mtlstats/bugfix-uppercase-team

bugfix: force other team name to uppercase
This commit is contained in:
Jonathan Lamothe 2019-12-02 14:54:07 -05:00 committed by GitHub
commit 36ab31a17c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -55,7 +55,7 @@ gameDayPrompt = numPrompt "Day of month: " $
-- | Prompts for the other team name -- | Prompts for the other team name
otherTeamPrompt :: Prompt otherTeamPrompt :: Prompt
otherTeamPrompt = strPrompt "Other team: " $ otherTeamPrompt = ucStrPrompt "Other team: " $
modify . (progMode.gameStateL.otherTeam .~) modify . (progMode.gameStateL.otherTeam .~)
-- | Prompts for the home score -- | Prompts for the home score