diff --git a/src/Mtlstats/Types.hs b/src/Mtlstats/Types.hs index 25f2fc5..d31399a 100644 --- a/src/Mtlstats/Types.hs +++ b/src/Mtlstats/Types.hs @@ -56,6 +56,8 @@ module Mtlstats.Types ( overtimeFlag, dataVerified, pointsAccounted, + goalBy, + assistsBy, -- ** CreatePlayerState Lenses cpsNumber, cpsName, @@ -203,6 +205,11 @@ data GameState = GameState , _dataVerified :: Bool -- ^ Set to 'True' when the user confirms the entered data , _pointsAccounted :: Int + -- ^ The number of game points accounted for + , _goalBy :: String + -- ^ The player who scored the most recently entered goal + , _assistsBy :: [String] + -- ^ The players who have assisted the most recently entered goal } deriving (Eq, Show) -- | The type of game @@ -499,6 +506,8 @@ newGameState = GameState , _overtimeFlag = Nothing , _dataVerified = False , _pointsAccounted = 0 + , _goalBy = "" + , _assistsBy = [] } -- | Constructor for a 'CreatePlayerState'