added dataVerified field to GameState

This commit is contained in:
Jonathan Lamothe 2019-09-06 11:21:46 -04:00
parent 00c96e763d
commit 1e7c4d6c19

View File

@ -52,6 +52,7 @@ module Mtlstats.Types (
homeScore, homeScore,
awayScore, awayScore,
overtimeFlag, overtimeFlag,
dataVerified,
-- ** Database Lenses -- ** Database Lenses
dbPlayers, dbPlayers,
dbGoalies, dbGoalies,
@ -169,6 +170,8 @@ data GameState = GameState
-- ^ The away team's score -- ^ The away team's score
, _overtimeFlag :: Maybe Bool , _overtimeFlag :: Maybe Bool
-- ^ Indicates whether or not the game went into overtime -- ^ Indicates whether or not the game went into overtime
, _dataVerified :: Bool
-- ^ Set to 'True' when the user confirms the entered data
} deriving (Eq, Show) } deriving (Eq, Show)
-- | The program mode -- | The program mode
@ -438,6 +441,7 @@ newGameState = GameState
, _homeScore = Nothing , _homeScore = Nothing
, _awayScore = Nothing , _awayScore = Nothing
, _overtimeFlag = Nothing , _overtimeFlag = Nothing
, _dataVerified = False
} }
-- | Constructor for a 'Database' -- | Constructor for a 'Database'