implemented gameTied helper function

src/Mtlstats/Types.hs

@@ -93,6 +93,7 @@ module Mtlstats.Types (
   -- ** GameState Helpers
   teamScore,
   otherScore,
+  gameTied,
   -- ** Player Helpers
   pPoints
 ) where
@@ -487,6 +488,12 @@ otherScore s = case s ^. gameType of
   Just AwayGame -> s ^. homeScore
   Nothing       -> Nothing
 
+-- | Checks if the game has tied (retuns 'False' if unknown)
+gameTied :: GameState -> Bool
+gameTied gs = case (,) <$> gs^.homeScore <*> gs^.awayScore of
+  Just (home, away) -> home == away
+  Nothing           -> False
+
 -- | Calculates a player's points
 pPoints :: PlayerStats -> Int
 pPoints s = s^.psGoals + s^.psAssists

test/TypesSpec.hs

@@ -43,6 +43,7 @@ spec = describe "Mtlstats.Types" $ do
   gameStateLSpec
   teamScoreSpec
   otherScoreSpec
+  gameTiedSpec
   pPointsSpec
   Menu.spec
 
@@ -243,6 +244,23 @@ dbJSON = Object $ HM.fromList
   , ( "away_game_stats", gameStatsJSON 2     )
   ]
 
+gameTiedSpec = describe "gameTied" $ mapM_
+  (\(home, away, expected) -> let
+    desc = "home score: " ++ show home ++
+      ", away score: " ++ show away
+    gs = newGameState
+      & homeScore .~ home
+      & awayScore .~ away
+    in context desc $
+      it ("should be " ++ show expected) $
+        gameTied gs `shouldBe` expected)
+  [ ( Nothing, Nothing, False )
+  , ( Nothing, Just 1,  False )
+  , ( Just 1,  Nothing, False )
+  , ( Just 1,  Just 1,  True  )
+  , ( Just 1,  Just 2,  False )
+  ]
+
 pPointsSpec :: Spec
 pPointsSpec = describe "pPoints" $ mapM_
   (\(goals, assists, points) -> let