deMaybe credPairRemoteKey

It's always Just
This commit is contained in:
Joey Hess 2018-12-04 13:37:43 -04:00
parent b184f158a5
commit 1308a76bf1
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 18 additions and 19 deletions

View file

@ -23,7 +23,7 @@ creds :: UUID -> CredPairStorage
creds u = CredPairStorage
{ credPairFile = fromUUID u
, credPairEnvironment = ("AWS_ACCESS_KEY_ID", "AWS_SECRET_ACCESS_KEY")
, credPairRemoteKey = Just "s3creds"
, credPairRemoteKey = "s3creds"
}
data Service = S3 | Glacier