store number of games in database

src/Mtlstats/Types.hs

@@ -12,6 +12,7 @@ module Mtlstats.Types (
   -- ** Database Lenses
   dbPlayers,
   dbGoalies,
+  dbGames,
   -- ** Player Lenses
   pNumber,
   pName,
@@ -69,21 +70,26 @@ data Database = Database
   -- ^ The list of players
   , _dbGoalies :: [Goalie]
   -- ^ The lidt of goalies
+  , _dbGames   :: Int
+  -- ^ The number of games recorded
   } deriving (Eq, Show)
 
 instance FromJSON Database where
   parseJSON = withObject "Database" $ \v -> Database
     <$> v .: "players"
     <*> v .: "goalies"
+    <*> v .: "games"
 
 instance ToJSON Database where
-  toJSON (Database ps gs) = object
+  toJSON (Database players goalies games) = object
-    [ "players" .= ps
+    [ "players" .= players
-    , "goalies" .= gs
+    , "goalies" .= goalies
+    , "games"   .= games
     ]
-  toEncoding (Database ps gs) = pairs $
+  toEncoding (Database players goalies games) = pairs $
-    "players" .= ps <>
+    "players" .= players <>
-    "goalies" .= gs
+    "goalies" .= goalies <>
+    "games"   .= games
 
 -- | Represents a (non-goalie) player
 data Player = Player
@@ -239,6 +245,7 @@ newDatabase :: Database
 newDatabase = Database
   { _dbPlayers = []
   , _dbGoalies = []
+  , _dbGames   = 0
   }
 
 -- | Constructor for a 'Player'

test/TypesSpec.hs

@@ -97,6 +97,7 @@ db :: Database
 db = newDatabase
   & dbPlayers .~ [player]
   & dbGoalies .~ [goalie]
+  & dbGames   .~ 1
 
 playerJSON :: ByteString
 playerJSON = [r|
@@ -145,4 +146,5 @@ dbJSON = [r|
     [ |] <> playerJSON <> [r| ]
   , "goalies":
     [ |] <> goalieJSON <> [r| ]
+  , "games": 1
   }|]