added dataVerified field to GameState
This commit is contained in:
parent
00c96e763d
commit
1e7c4d6c19
|
@ -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'
|
||||||
|
|
Loading…
Reference in New Issue
Block a user