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

whitespace fix

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Mtlstats/Events.hs
View File

@ -43,20 +43,20 @@ handleEvent e = gets (view progMode) >>= \case
MainMenu -> menuHandler mainMenu e
NewSeason -> menuHandler newSeasonMenu e >> return True
NewGame gs
| null $ gs ^. gameType -> do
| null $ gs^.gameType -> do
menuHandler gameTypeMenu e
return True
| null $ gs ^. otherTeam -> do
| null $ gs^.otherTeam -> do
promptHandler otherTeamPrompt e
return True
| null $ gs ^. homeScore -> do
| null $ gs^.homeScore -> do
promptHandler homeScorePrompt e
return True
| null $ gs ^. awayScore -> do
| null $ gs^.awayScore -> do
promptHandler awayScorePrompt e
modify overtimeCheck
return True
| null $ gs ^. overtimeFlag -> do
| null $ gs^.overtimeFlag -> do
overtimePrompt e
>>= modify . (progMode.gameStateL.overtimeFlag .~)
modify updateGameStats

4
src/Mtlstats/Menu.hs
View File

@ -75,7 +75,7 @@ newSeasonMenu = Menu "*** SEASON TYPE ***" ()
gameTypeMenu :: Menu ()
gameTypeMenu = Menu "*** GAME TYPE ***" ()
[ MenuItem '1' "Home Game" $
modify $ progMode . gameStateL . gameType ?~ HomeGame
modify $ progMode.gameStateL.gameType ?~ HomeGame
, MenuItem '2' "Away Game" $
modify $ progMode . gameStateL . gameType ?~ AwayGame
modify $ progMode.gameStateL.gameType ?~ AwayGame
]

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