recordGoalAssists should clear confirmGoalDataFlag

src/Mtlstats/Actions.hs

@@ -164,6 +164,7 @@ recordGoalAssists ps = fromMaybe ps $ do
       %~ (goalBy              .~ Nothing)
       .  (assistsBy           .~ [])
       .  (pointsAccounted     %~ succ)
+      .  (confirmGoalDataFlag .~ False)
 
 -- | Awards a goal to a player
 awardGoal

test/ActionsSpec.hs

@@ -373,6 +373,7 @@ recordGoalAssistsSpec = describe "recordGoalAssists" $ do
       & progMode.gameStateL
         %~ (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