From ad4e152fd656bf16b227ffed9d65e01c3e181fcc Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 9 Aug 2012 13:54:54 -0400 Subject: S3: Add fileprefix setting. --- Remote/S3.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'Remote/S3.hs') diff --git a/Remote/S3.hs b/Remote/S3.hs index dca08fff8..bec089a4a 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -212,9 +212,11 @@ s3Action r noconn action = do bucketFile :: Remote -> Key -> FilePath bucketFile r = munge . show where - munge s = case M.lookup "mungekeys" $ fromJust $ config r of - Just "ia" -> iaMunge s - _ -> s + munge s = case M.lookup "mungekeys" c of + Just "ia" -> iaMunge $ prefix ++ s + _ -> prefix ++ s + prefix = M.findWithDefault "" "fileprefix" c + c = fromJust $ config r bucketKey :: Remote -> String -> Key -> S3Object bucketKey r bucket k = S3Object bucket (bucketFile r k) "" [] L.empty -- cgit v1.2.3