diff options
Diffstat (limited to 'Remote/S3.hs')
-rw-r--r-- | Remote/S3.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs index 6e249ec4d..7dbd096f7 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -211,7 +211,7 @@ s3Action r noconn action = do _ -> return noconn bucketFile :: Remote -> Key -> FilePath -bucketFile r = munge . show +bucketFile r = munge . key2file where munge s = case M.lookup "mungekeys" $ fromJust $ config r of Just "ia" -> iaMunge s |