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

Recover from Hoogle creation errors

Browse Source
This commit is contained in:
Michael Snoyman 2020-08-27 10:41:02 +03:00
parent daacf64bb9
commit 42f4f7e586
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -716,7 +716,9 @@ buildAndUploadHoogleDB doNotUpload = do
void $ checkInsertSnapshotHoogleDb True snapshotId void $ checkInsertSnapshotHoogleDb True snapshotId
Nothing -> do Nothing -> do
logInfo $ "Current hoogle database does not yet exist for: " <> display snapName logInfo $ "Current hoogle database does not yet exist for: " <> display snapName
mfp' <- createHoogleDB snapshotId snapName mfp' <- createHoogleDB snapshotId snapName `catchAny` \e -> do
logError $ displayShow e
pure Nothing
forM_ mfp' $ \fp -> do forM_ mfp' $ \fp -> do
let key = hoogleKey snapName let key = hoogleKey snapName
dest = T.unpack key dest = T.unpack key