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

Try to avoid chunkedFile #275

Browse Source
This commit is contained in:
Michael Snoyman 2019-09-25 14:43:31 +03:00
parent dfe0122edf
commit 2701f186ca
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -653,7 +653,8 @@ uploadHoogleDB fp key =
withTempFile (takeDirectory fp) (takeFileName fp <.> "gz") $ \fpgz h -> do withTempFile (takeDirectory fp) (takeFileName fp <.> "gz") $ \fpgz h -> do
runConduitRes $ sourceFile fp .| compress 9 (WindowBits 31) .| CB.sinkHandle h runConduitRes $ sourceFile fp .| compress 9 (WindowBits 31) .| CB.sinkHandle h
hClose h hClose h
body <- chunkedFile defaultChunkSize fpgz -- FIXME body <- chunkedFile defaultChunkSize fpgz
body <- toBody <$> readFileBinary fpgz
uploadBucket <- scUploadBucketName <$> ask uploadBucket <- scUploadBucketName <$> ask
uploadFromRIO key $ uploadFromRIO key $
set poACL (Just OPublicRead) $ putObject (BucketName uploadBucket) key body set poACL (Just OPublicRead) $ putObject (BucketName uploadBucket) key body