haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-27 19:30:25 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Remove unused argument

Browse Source
This commit is contained in:
Bryan Richter 2024-04-30 14:14:03 +03:00
parent 22977c3475
commit 997e27acda
No known key found for this signature in database
GPG Key ID: B202264020068BFB
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Stackage/Database/Cron.hs
View File

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