recordGoalAssists should clear confirmGoalDataFlag

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

test/ActionsSpec.hs

@@ -371,8 +371,9 @@ recordGoalAssistsSpec = describe "recordGoalAssists" $ do
       = newProgState
       & database.dbPlayers .~ [joe, bob, steve, dave]
       & progMode.gameStateL
-        %~ (goalBy    ?~ 0)
-        .  (assistsBy .~ [1, 2])
+        %~ (goalBy              ?~ 0)
+        .  (assistsBy           .~ [1, 2])
+        .  (confirmGoalDataFlag .~ True)
       & recordGoalAssists
 
   mapM_
@@ -407,6 +408,9 @@ recordGoalAssistsSpec = describe "recordGoalAssists" $ do
   it "should increment the pointsAccounted counter" $
     ps^.progMode.gameStateL.pointsAccounted `shouldBe` 1
 
+  it "should clear the confirmGoalDataFlag" $
+    ps^.progMode.gameStateL.confirmGoalDataFlag `shouldBe` False
+
 awardGoalSpec :: Spec
 awardGoalSpec = describe "awardGoal" $ do
   let