Merge pull request #44 from mtlstats/bugfix-uppercase-team
bugfix: force other team name to uppercase
This commit is contained in:
commit
36ab31a17c
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user