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

@ -438,7 +438,7 @@ handleRequest' st external req mp responsehandler
credstorage setting = CredPairStorage
{ credPairFile = base
, credPairEnvironment = (base ++ "login", base ++ "password")
, credPairRemoteKey = Just setting
, credPairRemoteKey = setting
}
where
base = replace "/" "_" $ fromUUID (externalUUID external) ++ "-" ++ setting