added goalBy and assistsBy to GameState

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'