make gameWon and gameTied return Maybe Bool instead of Bool

src/Mtlstats/Types.hs

@@ -493,17 +493,13 @@ otherScore s = case s ^. gameType of
   Just AwayGame -> s ^. homeScore
   Nothing       -> Nothing
 
--- | Checks if the game was won (returns 'False' if unknown)
-gameWon :: GameState -> Bool
-gameWon gs = case (,) <$> teamScore gs <*> otherScore gs of
-  Just (team, other) -> team > other
-  Nothing            -> False
+-- | Checks if the game was won
+gameWon :: GameState -> Maybe Bool
+gameWon gs = (>) <$> teamScore gs <*> otherScore gs
 
--- | 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
+-- | Checks if the game has tied
+gameTied :: GameState -> Maybe Bool
+gameTied gs = (==) <$> gs^.homeScore <*> gs^.awayScore
 
 -- | Calculates a player's points
 pPoints :: PlayerStats -> Int