fix a further bug

This commit is contained in:
Joey Hess 2020-06-16 18:14:36 -04:00
parent ad81feb053
commit 5c0dc7dc0b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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. -}