implemented addGameStats

src/Mtlstats/Types.hs

@@ -99,6 +99,7 @@ module Mtlstats.Types (
   gameTied,
   -- ** GameStats Helpers
   gmsPoints,
+  addGameStats,
   -- ** Player Helpers
   pPoints
 ) where
@@ -512,6 +513,14 @@ gameTied gs = (==) <$> gs^.homeScore <*> gs^.awayScore
 gmsPoints :: GameStats -> Int
 gmsPoints gs = 2 * gs^.gmsWins + gs^. gmsOvertime
 
+-- | Adds two 'GameStats' values together
+addGameStats :: GameStats -> GameStats -> GameStats
+addGameStats s1 s2 = GameStats
+  { _gmsWins     = s1^.gmsWins + s2^.gmsWins
+  , _gmsLosses   = s1^.gmsLosses + s2^.gmsLosses
+  , _gmsOvertime = s1^.gmsOvertime + s2^.gmsOvertime
+  }
+
 -- | Calculates a player's points
 pPoints :: PlayerStats -> Int
 pPoints s = s^.psGoals + s^.psAssists

test/TypesSpec.hs

@@ -47,6 +47,7 @@ spec = describe "Mtlstats.Types" $ do
   gameLostSpec
   gameTiedSpec
   gmsPointsSpec
+  addGameStatsSpec
   pPointsSpec
   Menu.spec
 
@@ -341,6 +342,30 @@ gmsPointsSpec = describe "gmsPoints" $ mapM_
   , ( 2,    4,      3,        7        )
   ]
 
+addGameStatsSpec :: Spec
+addGameStatsSpec = describe "addGameStats" $
+  it "should add the values" $ let
+
+    s1 = GameStats
+      { _gmsWins     = 1
+      , _gmsLosses   = 3
+      , _gmsOvertime = 2
+      }
+
+    s2 = GameStats
+      { _gmsWins     = 4
+      , _gmsLosses   = 6
+      , _gmsOvertime = 5
+      }
+
+    expected = GameStats
+      { _gmsWins     = 5
+      , _gmsLosses   = 9
+      , _gmsOvertime = 7
+      }
+
+    in addGameStats s1 s2 `shouldBe` expected
+
 pPointsSpec :: Spec
 pPointsSpec = describe "pPoints" $ mapM_
   (\(goals, assists, points) -> let