fix build warning
This commit is contained in:
parent
cbca93cf7c
commit
b818337054
1 changed files with 3 additions and 3 deletions
|
@ -214,9 +214,9 @@ bucketFile :: Remote -> Key -> FilePath
|
||||||
bucketFile r = munge . key2file
|
bucketFile r = munge . key2file
|
||||||
where
|
where
|
||||||
munge s = case M.lookup "mungekeys" c of
|
munge s = case M.lookup "mungekeys" c of
|
||||||
Just "ia" -> iaMunge $ prefix ++ s
|
Just "ia" -> iaMunge $ fileprefix ++ s
|
||||||
_ -> prefix ++ s
|
_ -> fileprefix ++ s
|
||||||
prefix = M.findWithDefault "" "fileprefix" c
|
fileprefix = M.findWithDefault "" "fileprefix" c
|
||||||
c = fromJust $ config r
|
c = fromJust $ config r
|
||||||
|
|
||||||
bucketKey :: Remote -> String -> Key -> S3Object
|
bucketKey :: Remote -> String -> Key -> S3Object
|
||||||
|
|
Loading…
Add table
Reference in a new issue