From 997e27acdac9d1313bcf1357c8fe9f182399fb80 Mon Sep 17 00:00:00 2001
From: Bryan Richter <bryan@haskell.foundation>
Date: Tue, 30 Apr 2024 14:14:03 +0300
Subject: [PATCH] Remove unused argument

---
 src/Stackage/Database/Cron.hs | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/src/Stackage/Database/Cron.hs b/src/Stackage/Database/Cron.hs
index 04ea847..6ae2330 100644
--- a/src/Stackage/Database/Cron.hs
+++ b/src/Stackage/Database/Cron.hs
@@ -248,10 +248,8 @@ makeCorePackageGetters = do
     coreCabalFiles <- getCoreCabalFiles rootDir
     liftIO (decodeFileEither (contentDir </> "stack" </> "global-hints.yaml")) >>= \case
         Right (hints :: Map CompilerP (Map PackageNameP VersionP)) ->
-            Map.traverseWithKey
-                (\compiler ->
-                     fmap Map.elems .
-                     Map.traverseMaybeWithKey (makeCorePackageGetter compiler coreCabalFiles))
+            traverse
+                (fmap Map.elems . Map.traverseMaybeWithKey (makeCorePackageGetter backupCoreCabalFiles))
                 hints
         Left exc -> do
             logError $
@@ -282,12 +280,11 @@ getCoreCabalFiles rootDir = do
 -- a memoized version that will do it once initiall and then return information aboat a
 -- package on subsequent invocations.
 makeCorePackageGetter ::
-       CompilerP
-    -> Map PackageIdentifierP (GenericPackageDescription, CabalFileIds)
+       Map PackageIdentifierP (GenericPackageDescription, CabalFileIds)
     -> PackageNameP
     -> VersionP
     -> RIO StackageCron (Maybe CorePackageGetter)
-makeCorePackageGetter _compiler fallbackCabalFileMap pname ver =
+makeCorePackageGetter fallbackCabalFileMap pname ver =
     run (getHackageCabalByRev0 pid) >>= \case
         Nothing -> do
             logWarn $