added pointsAccounted field to GameState

src/Mtlstats/Types.hs

@@ -55,6 +55,7 @@ module Mtlstats.Types (
   awayScore,
   overtimeFlag,
   dataVerified,
+  pointsAccounted,
   -- ** CreatePlayerState Lenses
   cpsNumber,
   cpsName,
@@ -194,6 +195,7 @@ data GameState = GameState
   -- ^ Indicates whether or not the game went into overtime
   , _dataVerified    :: Bool
   -- ^ Set to 'True' when the user confirms the entered data
+  , _pointsAccounted :: Int
   } deriving (Eq, Show)
 
 -- | The type of game
@@ -479,6 +481,7 @@ newGameState = GameState
   , _awayScore       = Nothing
   , _overtimeFlag    = Nothing
   , _dataVerified    = False
+  , _pointsAccounted = 0
   }
 
 -- | Constructor for a 'CreatePlayerState'