fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

whitespace fix

Browse Source
This commit is contained in:
Jonathan Lamothe
2019-08-31 11:27:02 -04:00
parent 9f076db27b
commit f718757bea
3 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/Mtlstats/Prompt.hs
View File

@@ -96,17 +96,17 @@ numPrompt pStr act = Prompt
-- | Prompts for the other team name
otherTeamPrompt :: Prompt
otherTeamPrompt = strPrompt "Other team: " $
modify . (progMode . gameStateL . otherTeam .~)
modify . (progMode.gameStateL.otherTeam .~)
-- | Prompts for the home score
homeScorePrompt :: Prompt
homeScorePrompt = numPrompt "Home score: " $
modify . (progMode . gameStateL . homeScore ?~)
modify . (progMode.gameStateL.homeScore ?~)
-- | Prompts for the away score
awayScorePrompt :: Prompt
awayScorePrompt = numPrompt "Away score: " $
modify . (progMode . gameStateL . awayScore ?~)
modify . (progMode.gameStateL.awayScore ?~)
drawSimplePrompt :: String -> ProgState -> C.Update ()
drawSimplePrompt pStr s = C.drawString $ pStr ++ s ^. inputBuffer
drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer