summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Remote/S3.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs
index 63666bc29..b248335c8 100644
--- a/Remote/S3.hs
+++ b/Remote/S3.hs
@@ -214,9 +214,9 @@ bucketFile :: Remote -> Key -> FilePath
bucketFile r = munge . key2file
where
munge s = case M.lookup "mungekeys" c of
- Just "ia" -> iaMunge $ prefix ++ s
- _ -> prefix ++ s
- prefix = M.findWithDefault "" "fileprefix" c
+ Just "ia" -> iaMunge $ fileprefix ++ s
+ _ -> fileprefix ++ s
+ fileprefix = M.findWithDefault "" "fileprefix" c
c = fromJust $ config r
bucketKey :: Remote -> String -> Key -> S3Object