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

removed unnecessary lenses

Browse Source
This commit is contained in:
Jonathan Lamothe
2019-08-28 01:09:03 -04:00
parent d7dd682532
commit 2854c54474
4 changed files with 5 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Mtlstats/Prompt.hs
View File

@@ -95,15 +95,15 @@ numPrompt pStr act = Prompt
otherTeamPrompt :: Prompt
otherTeamPrompt = strPrompt "Other team: " $
modify . (progMode . otherTeamL .~)
modify . (progMode . gameStateL . otherTeam .~)
homeScorePrompt :: Prompt
homeScorePrompt = numPrompt "Home score: " $
modify . (progMode . homeScoreL ?~)
modify . (progMode . gameStateL . homeScore ?~)
awayScorePrompt :: Prompt
awayScorePrompt = numPrompt "Away score: " $
modify . (progMode . awayScoreL ?~)
modify . (progMode . gameStateL . awayScore ?~)
drawSimplePrompt :: String -> ProgState -> C.Update ()
drawSimplePrompt pStr s = C.drawString $ pStr ++ s ^. inputBuffer