From 6771516cecdc6be82f3442e43b8c407cd5a3f28c Mon Sep 17 00:00:00 2001
From: Bryan Richter <bryan@haskell.foundation>
Date: Fri, 7 Feb 2025 13:45:48 +0200
Subject: [PATCH] Remove stray temp file

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

diff --git a/src/Stackage/Database/Cron.hs b/src/Stackage/Database/Cron.hs
index 947e716..90199cf 100644
--- a/src/Stackage/Database/Cron.hs
+++ b/src/Stackage/Database/Cron.hs
@@ -823,12 +823,16 @@ buildAndUploadHoogleDBs doNotUpload = do
             -- stackage-server downloads its own version separately.
             mfp <- singleRun locker snapName
             case mfp of
-                Just _ -> do
+                Just fp -> do
                     -- Something bad must have happened: we created the hoogle db
                     -- previously, but didn't get to record it as available.
                     logWarn $ "Unregistered hoogle database found for: " <> display snapName
                             <> ". Registering now."
                     void $ insertH snapshotId
+                    -- FIXME: For now we need to delete this file we just
+                    -- downloaded. We probably shouldn't download it in the
+                    -- first place, though (just use HEAD).
+                    liftIO $ removeFile fp
                 Nothing -> do
                     logInfo $ "Current hoogle database does not yet exist in the bucket for: " <> display snapName
                     -- NB: createHoogleDB will fail if something goes wrong.