don't automatically update goal/assist stats

This commit is contained in:
Jonathan Lamothe 2019-10-01 00:56:23 -04:00
parent 08c3382fe8
commit 66148a25d8

View File

@ -227,12 +227,12 @@ recordAssistPrompt game goal assist = selectPlayerPrompt
++ "Goal: " ++ show goal ++ "\n" ++ "Goal: " ++ show goal ++ "\n"
++ "Assist #" ++ show assist ++ ": " ++ "Assist #" ++ show assist ++ ": "
) $ \case ) $ \case
Nothing -> modify recordGoalAssists Nothing -> modify $ progMode.gameStateL.confirmGoalDataFlag .~ True
Just n -> do Just n -> do
modify $ progMode.gameStateL.assistsBy %~ (++[n]) modify $ progMode.gameStateL.assistsBy %~ (++[n])
nAssists <- length <$> gets (view $ progMode.gameStateL.assistsBy) nAssists <- length <$> gets (view $ progMode.gameStateL.assistsBy)
when (nAssists >= maxAssists) $ when (nAssists >= maxAssists) $
modify recordGoalAssists modify $ progMode.gameStateL.confirmGoalDataFlag .~ True
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