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

Remove stray temp file

Browse Source
This commit is contained in:
Bryan Richter 2025-02-07 13:45:48 +02:00
parent c344ce21ce
commit 6771516cec
No known key found for this signature in database
GPG Key ID: B202264020068BFB
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -823,12 +823,16 @@ buildAndUploadHoogleDBs doNotUpload = do
-- stackage-server downloads its own version separately. -- stackage-server downloads its own version separately.
mfp <- singleRun locker snapName mfp <- singleRun locker snapName
case mfp of case mfp of
Just _ -> do Just fp -> do
-- Something bad must have happened: we created the hoogle db -- Something bad must have happened: we created the hoogle db
-- previously, but didn't get to record it as available. -- previously, but didn't get to record it as available.
logWarn $ "Unregistered hoogle database found for: " <> display snapName logWarn $ "Unregistered hoogle database found for: " <> display snapName
<> ". Registering now." <> ". Registering now."
void $ insertH snapshotId 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 Nothing -> do
logInfo $ "Current hoogle database does not yet exist in the bucket for: " <> display snapName logInfo $ "Current hoogle database does not yet exist in the bucket for: " <> display snapName
-- NB: createHoogleDB will fail if something goes wrong. -- NB: createHoogleDB will fail if something goes wrong.