added pointsAccounted field to GameState
This commit is contained in:
parent
1a25c0dc92
commit
926a125692
|
@ -55,6 +55,7 @@ module Mtlstats.Types (
|
||||||
awayScore,
|
awayScore,
|
||||||
overtimeFlag,
|
overtimeFlag,
|
||||||
dataVerified,
|
dataVerified,
|
||||||
|
pointsAccounted,
|
||||||
-- ** CreatePlayerState Lenses
|
-- ** CreatePlayerState Lenses
|
||||||
cpsNumber,
|
cpsNumber,
|
||||||
cpsName,
|
cpsName,
|
||||||
|
@ -194,6 +195,7 @@ data GameState = GameState
|
||||||
-- ^ Indicates whether or not the game went into overtime
|
-- ^ Indicates whether or not the game went into overtime
|
||||||
, _dataVerified :: Bool
|
, _dataVerified :: Bool
|
||||||
-- ^ Set to 'True' when the user confirms the entered data
|
-- ^ Set to 'True' when the user confirms the entered data
|
||||||
|
, _pointsAccounted :: Int
|
||||||
} deriving (Eq, Show)
|
} deriving (Eq, Show)
|
||||||
|
|
||||||
-- | The type of game
|
-- | The type of game
|
||||||
|
@ -479,6 +481,7 @@ newGameState = GameState
|
||||||
, _awayScore = Nothing
|
, _awayScore = Nothing
|
||||||
, _overtimeFlag = Nothing
|
, _overtimeFlag = Nothing
|
||||||
, _dataVerified = False
|
, _dataVerified = False
|
||||||
|
, _pointsAccounted = 0
|
||||||
}
|
}
|
||||||
|
|
||||||
-- | Constructor for a 'CreatePlayerState'
|
-- | Constructor for a 'CreatePlayerState'
|
||||||
|
|
Loading…
Reference in New Issue
Block a user