mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build warning

Browse source
This commit is contained in:
Joey Hess 2012-08-16 16:48:27 -07:00
parent cbca93cf7c
commit b818337054
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Remote/S3.hs
View file

@ -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