added confirmGoalDataFlag field to GameState

src/Mtlstats/Types.hs

@@ -58,6 +58,7 @@ module Mtlstats.Types (
   pointsAccounted,
   goalBy,
   assistsBy,
+  confirmGoalDataFlag,
   -- ** CreatePlayerState Lenses
   cpsNumber,
   cpsName,
@@ -213,6 +214,7 @@ data GameState = GameState
   , _assistsBy           :: [Int]
   -- ^ The index numbers of the players who have assisted the most
   -- recently entered goal
+  , _confirmGoalDataFlag :: Bool
   } deriving (Eq, Show)
 
 -- | The type of game
@@ -511,6 +513,7 @@ newGameState = GameState
   , _pointsAccounted     = 0
   , _goalBy              = Nothing
   , _assistsBy           = []
+  , _confirmGoalDataFlag = False
   }
 
 -- | Constructor for a 'CreatePlayerState'