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

Drop unused subdirectory

Browse Source
This commit is contained in:
Bryan Richter 2024-11-05 17:18:55 +02:00
parent 66c5361458
commit 885dd2a01e
No known key found for this signature in database
GPG Key ID: B202264020068BFB
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -825,7 +825,6 @@ createHoogleDB snapshotId snapName =
logInfo $ "Creating Hoogle DB for " <> display snapName logInfo $ "Creating Hoogle DB for " <> display snapName
downloadBucketUrl <- scDownloadBucketUrl <$> ask downloadBucketUrl <- scDownloadBucketUrl <$> ask
let root = "hoogle-gen" let root = "hoogle-gen"
bindir = root </> "bindir"
outname = root </> "output.hoo" outname = root </> "output.hoo"
tarKey = toPathPiece snapName <> "/hoogle/orig.tar" tarKey = toPathPiece snapName <> "/hoogle/orig.tar"
tarUrl = downloadBucketUrl <> "/" <> tarKey tarUrl = downloadBucketUrl <> "/" <> tarKey
@ -841,9 +840,7 @@ createHoogleDB snapshotId snapName =
createDirectoryIfMissing True $ takeDirectory tarFP createDirectoryIfMissing True $ takeDirectory tarFP
withBinaryFileDurableAtomic tarFP WriteMode $ \tarHandle -> withBinaryFileDurableAtomic tarFP WriteMode $ \tarHandle ->
runConduitRes $ bodyReaderSource (responseBody res) .| sinkHandle tarHandle runConduitRes $ bodyReaderSource (responseBody res) .| sinkHandle tarHandle
void $ tryIO $ removeDirectoryRecursive bindir
void $ tryIO $ removeFile outname void $ tryIO $ removeFile outname
createDirectoryIfMissing True bindir
withSystemTempDirectory ("hoogle-" ++ T.unpack (textDisplay snapName)) $ \tmpdir -> do withSystemTempDirectory ("hoogle-" ++ T.unpack (textDisplay snapName)) $ \tmpdir -> do
Any hasRestored <- Any hasRestored <-
runConduitRes $ runConduitRes $