From 4e7e62c3dc8cc1a728d1443e312cc6ae529f2b2b Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Thu, 27 Aug 2020 13:33:09 +0300 Subject: [PATCH] Revert "Recover from Hoogle creation errors" This reverts commit 42f4f7e5869cd90d23569f5efbf7c22a5812d38c. --- src/Stackage/Database/Cron.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/Stackage/Database/Cron.hs b/src/Stackage/Database/Cron.hs index ecb909a..dfe6ef7 100644 --- a/src/Stackage/Database/Cron.hs +++ b/src/Stackage/Database/Cron.hs @@ -716,9 +716,7 @@ buildAndUploadHoogleDB doNotUpload = do void $ checkInsertSnapshotHoogleDb True snapshotId Nothing -> do logInfo $ "Current hoogle database does not yet exist for: " <> display snapName - mfp' <- createHoogleDB snapshotId snapName `catchAny` \e -> do - logError $ displayShow e - pure Nothing + mfp' <- createHoogleDB snapshotId snapName forM_ mfp' $ \fp -> do let key = hoogleKey snapName dest = T.unpack key