diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-05-16 13:10:26 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-05-16 13:10:26 -0400 |
| commit | 0a7bcd47aeec9a2d1c9a42ef8d9ea539a6aef0d3 (patch) | |
| tree | d9b0d2b3c75b03ffb839e65592b72d4673c6bc7a /Remote | |
| parent | 93c5fb5da7f085cc772e28d8ded08f4ea0b0bf15 (diff) | |
IA: do not create bucket at initremote time
This way, the metadata sent when uploading a file is applied to the bucket
then.
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/S3real.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Remote/S3real.hs b/Remote/S3real.hs index 7d6b5d5ba..135966903 100644 --- a/Remote/S3real.hs +++ b/Remote/S3real.hs @@ -89,13 +89,14 @@ s3Setup u c = handlehost $ M.lookup "host" c | otherwise = defaulthost use fullconfig = do - genBucket fullconfig gitConfigSpecialRemote u fullconfig "s3" "true" s3SetCreds fullconfig defaulthost = do c' <- encryptionSetup c - use $ M.union c' defaults + let fullconfig = M.union c' defaults + genBucket fullconfig + use fullconfig archiveorg = do showNote $ "Internet Archive mode" @@ -112,7 +113,7 @@ s3Setup u c = handlehost $ M.lookup "host" c M.union c $ -- special constraints on key names M.insert "mungekeys" "ia" $ - -- buckets created only as files + -- bucket created only when files -- are uploaded M.insert "x-amz-auto-make-bucket" "1" $ -- no default bucket name; should |