From ed31ce5b1d98e9c825a3401b2474e44f4edddb60 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Fri, 25 Oct 2019 00:48:28 -0400 Subject: [PATCH] added missing documentation comments --- src/Mtlstats/Prompt.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Mtlstats/Prompt.hs b/src/Mtlstats/Prompt.hs index 4d3ae45..5375193 100644 --- a/src/Mtlstats/Prompt.hs +++ b/src/Mtlstats/Prompt.hs @@ -236,6 +236,7 @@ recordAssistPrompt game goal assist = selectPlayerPrompt when (nAssists >= maxAssists) $ modify $ progMode.gameStateL.confirmGoalDataFlag .~ True +-- | Prompts for the player to assign penalty minutes to pMinPlayerPrompt :: Prompt pMinPlayerPrompt = selectPlayerPrompt "Assign penalty minutes to: " $ @@ -243,14 +244,17 @@ pMinPlayerPrompt = selectPlayerPrompt Nothing -> modify $ progMode.gameStateL.pMinsRecorded .~ True Just n -> modify $ progMode.gameStateL.selectedPlayer ?~ n +-- | Prompts for the number of penalty mintues to assign to the player assignPMinsPrompt :: Prompt assignPMinsPrompt = numPrompt "Penalty minutes: " $ modify . assignPMins +-- | Prompts tor the goalie's number goalieNumPrompt :: Prompt goalieNumPrompt = numPrompt "Goalie number: " $ modify . (progMode.createGoalieStateL.cgsNumber ?~) +-- | Prompts for the goalie's name goalieNamePrompt :: Prompt goalieNamePrompt = strPrompt "Goalie name: " $ modify . (progMode.createGoalieStateL.cgsName .~)