From 9f076db27b05e5cb95ef9235712b47ff3c8fb537 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Sat, 31 Aug 2019 11:24:55 -0400 Subject: [PATCH] missing haddock comments --- src/Mtlstats/Prompt.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/Mtlstats/Prompt.hs b/src/Mtlstats/Prompt.hs index 80cd7d8..e311e19 100644 --- a/src/Mtlstats/Prompt.hs +++ b/src/Mtlstats/Prompt.hs @@ -93,14 +93,17 @@ numPrompt pStr act = Prompt , promptFunctionKey = const $ return () } +-- | Prompts for the other team name otherTeamPrompt :: Prompt otherTeamPrompt = strPrompt "Other team: " $ modify . (progMode . gameStateL . otherTeam .~) +-- | Prompts for the home score homeScorePrompt :: Prompt homeScorePrompt = numPrompt "Home score: " $ modify . (progMode . gameStateL . homeScore ?~) +-- | Prompts for the away score awayScorePrompt :: Prompt awayScorePrompt = numPrompt "Away score: " $ modify . (progMode . gameStateL . awayScore ?~)