deMaybe credPairRemoteKey
It's always Just
This commit is contained in:
parent
b184f158a5
commit
1308a76bf1
4 changed files with 18 additions and 19 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue