From 42f4f7e5869cd90d23569f5efbf7c22a5812d38c Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 27 Aug 2020 10:41:02 +0300
Subject: [PATCH] Recover from Hoogle creation errors

---
 src/Stackage/Database/Cron.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Stackage/Database/Cron.hs b/src/Stackage/Database/Cron.hs
index dfe6ef7..ecb909a 100644
--- a/src/Stackage/Database/Cron.hs
+++ b/src/Stackage/Database/Cron.hs
@@ -716,7 +716,9 @@ buildAndUploadHoogleDB doNotUpload = do
                     void $ checkInsertSnapshotHoogleDb True snapshotId
                 Nothing -> do
                     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
                         let key = hoogleKey snapName
                             dest = T.unpack key