store number of games in database

2019-08-19 09:31:24 -04:00
parent d491a30ea7
commit baadb5ae54
2 changed files with 15 additions and 6 deletions
--- a/test/TypesSpec.hs
+++ b/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
  }|]