bugfix: force other team name to uppercase

This commit is contained in:
Jonathan Lamothe 2019-12-02 14:43:08 -05:00
parent 427ad12603
commit 768cb47fac

View File

@ -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