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

missing haddock comments

This commit is contained in:
Jonathan Lamothe 2019-08-31 11:24:55 -04:00
parent ab5408f464
commit 9f076db27b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Mtlstats/Prompt.hs
View File

@ -93,14 +93,17 @@ numPrompt pStr act = Prompt
, promptFunctionKey = const $ return () , promptFunctionKey = const $ return ()
} }
-- | Prompts for the other team name
otherTeamPrompt :: Prompt otherTeamPrompt :: Prompt
otherTeamPrompt = strPrompt "Other team: " $ otherTeamPrompt = strPrompt "Other team: " $
modify . (progMode . gameStateL . otherTeam .~) modify . (progMode . gameStateL . otherTeam .~)
-- | Prompts for the home score
homeScorePrompt :: Prompt homeScorePrompt :: Prompt
homeScorePrompt = numPrompt "Home score: " $ homeScorePrompt = numPrompt "Home score: " $
modify . (progMode . gameStateL . homeScore ?~) modify . (progMode . gameStateL . homeScore ?~)
-- | Prompts for the away score
awayScorePrompt :: Prompt awayScorePrompt :: Prompt
awayScorePrompt = numPrompt "Away score: " $ awayScorePrompt = numPrompt "Away score: " $
modify . (progMode . gameStateL . awayScore ?~) modify . (progMode . gameStateL . awayScore ?~)