S3: Add fileprefix setting.

1 files changed, 5 insertions, 3 deletions

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