fix a further bug
This commit is contained in:
parent
ad81feb053
commit
5c0dc7dc0b
1 changed files with 1 additions and 1 deletions
|
@ -242,7 +242,7 @@ embedCreds :: ParsedRemoteConfig -> Bool
|
|||
embedCreds c = case getRemoteConfigValue embedCredsField c of
|
||||
Just v -> v
|
||||
Nothing -> case (getRemoteConfigValue cipherkeysField c, getRemoteConfigValue cipherField c) of
|
||||
(Just (_ :: ProposedAccepted String), Just (_ :: ProposedAccepted String)) -> True
|
||||
(Just (_ :: String), Just (_ :: String)) -> True
|
||||
_ -> False
|
||||
|
||||
{- Gets encryption Cipher, and key encryptor. -}
|
||||
|
|
Loading…
Reference in a new issue