recordGoalAssists should clear confirmGoalDataFlag

2019-10-01 00:06:54 -04:00
parent 739db189ae
commit 08c3382fe8
2 changed files with 10 additions and 5 deletions
--- a/src/Mtlstats/Actions.hs
+++ b/src/Mtlstats/Actions.hs
@@ -161,9 +161,10 @@ recordGoalAssists ps = fromMaybe ps $ do
    & awardGoal goalId
    & (\s -> foldr awardAssist s assistIds)
    & progMode.gameStateL
-      %~ (goalBy          .~ Nothing)
-      .  (assistsBy       .~ [])
-      .  (pointsAccounted %~ succ)
+      %~ (goalBy              .~ Nothing)
+      .  (assistsBy           .~ [])
+      .  (pointsAccounted     %~ succ)
+      .  (confirmGoalDataFlag .~ False)

 -- | Awards a goal to a player
 awardGoal