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

Revert "Recover from Hoogle creation errors"

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

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

@ -716,9 +716,7 @@ 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 `catchAny` \e -> do mfp' <- createHoogleDB snapshotId snapName
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