pre-cleanup cleanup

cardanonix · Mar 13, 2024 · 5eb8b2d · 5eb8b2d
1 parent 81c0398
commit 5eb8b2d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/League/Scraper.hs b/src/League/Scraper.hs
@@ -4,6 +4,7 @@
 {-# HLINT ignore "Redundant id" #-}
 {-# OPTIONS_GHC -Wno-deferred-out-of-scope-variables #-}
 {-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+{-# HLINT ignore "Use tuple-section" #-}
 
 module Scraper (
     scrapeStatsForDateRange,
@@ -242,7 +243,7 @@ convertGameDataMapToJsonPlayerData maybeGameDataMap =
     foldl mergePlayerData M.empty allPlayerDataPairs
   where
     allPlayerDataPairs :: [(Text, MI.JsonPlayerData)]
-    allPlayerDataPairs = concatMap gameDataToPlayerDataPairs (mapMaybe id (M.elems maybeGameDataMap))
+    allPlayerDataPairs = concatMap gameDataToPlayerDataPairs (catMaybes (M.elems maybeGameDataMap))
 
     gameDataToPlayerDataPairs :: I.GameData -> [(Text, MI.JsonPlayerData)]
     gameDataToPlayerDataPairs gameData =