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

implemented pMinPlayerPrompt

Browse Source
This commit is contained in:
Jonathan Lamothe committed 2019-10-09 21:54:55 -04:00
1 parent ffe9b7f87f
commit afd2bac7b5
1 file changed
+5 -1
Download Patch File Download Diff File Expand all files Collapse all files
src/Mtlstats/Prompt.hs
+5 -1
View File
@@ -236,7 +236,11 @@ recordAssistPrompt game goal assist = selectPlayerPrompt
modify $ progMode.gameStateL.confirmGoalDataFlag .~ True modify $ progMode.gameStateL.confirmGoalDataFlag .~ True
pMinPlayerPrompt :: Prompt pMinPlayerPrompt :: Prompt
pMinPlayerPrompt = undefined pMinPlayerPrompt = selectPlayerPrompt
"Assign penalty minutes to: " $
\case
Nothing -> modify $ progMode.gameStateL.pMinsRecorded .~ True
Just n -> modify $ progMode.gameStateL.selectedPlayer ?~ n
drawSimplePrompt :: String -> ProgState -> C.Update () drawSimplePrompt :: String -> ProgState -> C.Update ()
drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer