added missing documentation comments
This commit is contained in:
parent
0812ae3ddd
commit
ed31ce5b1d
@ -236,6 +236,7 @@ recordAssistPrompt game goal assist = selectPlayerPrompt
|
|||||||
when (nAssists >= maxAssists) $
|
when (nAssists >= maxAssists) $
|
||||||
modify $ progMode.gameStateL.confirmGoalDataFlag .~ True
|
modify $ progMode.gameStateL.confirmGoalDataFlag .~ True
|
||||||
|
|
||||||
|
-- | Prompts for the player to assign penalty minutes to
|
||||||
pMinPlayerPrompt :: Prompt
|
pMinPlayerPrompt :: Prompt
|
||||||
pMinPlayerPrompt = selectPlayerPrompt
|
pMinPlayerPrompt = selectPlayerPrompt
|
||||||
"Assign penalty minutes to: " $
|
"Assign penalty minutes to: " $
|
||||||
@ -243,14 +244,17 @@ pMinPlayerPrompt = selectPlayerPrompt
|
|||||||
Nothing -> modify $ progMode.gameStateL.pMinsRecorded .~ True
|
Nothing -> modify $ progMode.gameStateL.pMinsRecorded .~ True
|
||||||
Just n -> modify $ progMode.gameStateL.selectedPlayer ?~ n
|
Just n -> modify $ progMode.gameStateL.selectedPlayer ?~ n
|
||||||
|
|
||||||
|
-- | Prompts for the number of penalty mintues to assign to the player
|
||||||
assignPMinsPrompt :: Prompt
|
assignPMinsPrompt :: Prompt
|
||||||
assignPMinsPrompt = numPrompt "Penalty minutes: " $
|
assignPMinsPrompt = numPrompt "Penalty minutes: " $
|
||||||
modify . assignPMins
|
modify . assignPMins
|
||||||
|
|
||||||
|
-- | Prompts tor the goalie's number
|
||||||
goalieNumPrompt :: Prompt
|
goalieNumPrompt :: Prompt
|
||||||
goalieNumPrompt = numPrompt "Goalie number: " $
|
goalieNumPrompt = numPrompt "Goalie number: " $
|
||||||
modify . (progMode.createGoalieStateL.cgsNumber ?~)
|
modify . (progMode.createGoalieStateL.cgsNumber ?~)
|
||||||
|
|
||||||
|
-- | Prompts for the goalie's name
|
||||||
goalieNamePrompt :: Prompt
|
goalieNamePrompt :: Prompt
|
||||||
goalieNamePrompt = strPrompt "Goalie name: " $
|
goalieNamePrompt = strPrompt "Goalie name: " $
|
||||||
modify . (progMode.createGoalieStateL.cgsName .~)
|
modify . (progMode.createGoalieStateL.cgsName .~)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user