unimportant tweak

fix something my internal haskell parser does a double take at
This commit is contained in:
Joey Hess 2013-09-04 22:39:25 -04:00
parent 15b8acb885
commit a51f1a4ee4

View file

@ -50,7 +50,7 @@ encryptionSetup c = maybe genCipher updateCipher $ extractCipher c
cannotchange = error "Cannot set encryption type of existing remotes."
-- Update an existing cipher if possible.
updateCipher v = case v of
SharedCipher{} | maybe True (== "shared") encryption -> return c'
SharedCipher _ | maybe True (== "shared") encryption -> return c'
EncryptedCipher _ variant _
| maybe True (== if variant == HybridCipher then "hybrid" else "pubkey") encryption ->
use "encryption update" $ updateEncryptedCipher newkeys v