diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-16 16:48:27 -0700 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-16 16:48:27 -0700 |
| commit | b81833705466e63641a524a3bd7050075de8a1be (patch) | |
| tree | aab2166113d74b49383d7307603c0610148f1c69 /Remote/S3.hs | |
| parent | cbca93cf7cdecc7fd2a66c4640da246462ecc7c7 (diff) | |
fix build warning
Diffstat (limited to 'Remote/S3.hs')
| -rw-r--r-- | Remote/S3.hs | 6 |
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 |