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

Blob store overwriting

Browse Source
This commit is contained in:
Michael Snoyman 2014-10-20 14:47:08 +03:00
parent 5e4dcc090e
commit e32df84ac4
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Data/BlobStore.hs
View File

@ -130,6 +130,9 @@ cachedS3Store cache creds bucket prefix manager =
$ requestBodySource len $ requestBodySource len
$ sourceHandle inH) $ sourceHandle inH)
void $ Aws.readResponseIO res void $ Aws.readResponseIO res
liftIO $ IO.withFile fp IO.ReadMode $ \inH -> withAcquire
(storeWrite' (fileStore cache) key)
(sourceHandle inH $$)
else storeWrite' (fileStore cache) key else storeWrite' (fileStore cache) key
, storeRead' = \key -> , storeRead' = \key ->
if shouldBackup key if shouldBackup key