bugfix: force other team name to uppercase
This commit is contained in:
1 parent
427ad12603
commit
768cb47fac
1 file changed
+1
-1
@@ -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
|
||||||
|
|||||||
Reference in new issue
Block a user