haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-18 23:21:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Cron job: more Hoogle debug info

Browse Source
This commit is contained in:
Michael Snoyman 2019-09-25 12:02:18 +03:00
parent f2a70752c3
commit dfe0122edf
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -675,11 +675,12 @@ buildAndUploadHoogleDB = do
env <- ask env <- ask
locker <- newHoogleLocker (env ^. logFuncL) (env ^. envManager) locker <- newHoogleLocker (env ^. logFuncL) (env ^. envManager)
void $ flip Map.traverseWithKey snapshots $ \snapshotId snapName -> do void $ flip Map.traverseWithKey snapshots $ \snapshotId snapName -> do
logDebug $ "Starting Hoogle DB download: " <> display (hoogleKey snapName) logInfo $ "Starting Hoogle DB download: " <> display (hoogleKey snapName)
mfp <- singleRun locker snapName mfp <- singleRun locker snapName
case mfp of case mfp of
Just _ -> logDebug $ "Hoogle database exists for: " <> display snapName Just _ -> logInfo $ "Hoogle database exists for: " <> display snapName
Nothing -> do Nothing -> do
logInfo $ "Hoogle database does not exist for: " <> display snapName
mfp' <- createHoogleDB snapshotId snapName mfp' <- createHoogleDB snapshotId snapName
forM_ mfp' $ \fp -> do forM_ mfp' $ \fp -> do
let key = hoogleKey snapName let key = hoogleKey snapName