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
|
embedCreds c = case getRemoteConfigValue embedCredsField c of
|
||||||
Just v -> v
|
Just v -> v
|
||||||
Nothing -> case (getRemoteConfigValue cipherkeysField c, getRemoteConfigValue cipherField c) of
|
Nothing -> case (getRemoteConfigValue cipherkeysField c, getRemoteConfigValue cipherField c) of
|
||||||
(Just (_ :: ProposedAccepted String), Just (_ :: ProposedAccepted String)) -> True
|
(Just (_ :: String), Just (_ :: String)) -> True
|
||||||
_ -> False
|
_ -> False
|
||||||
|
|
||||||
{- Gets encryption Cipher, and key encryptor. -}
|
{- Gets encryption Cipher, and key encryptor. -}
|
||||||
|
|
Loading…
Reference in a new issue