diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-04 22:39:25 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-04 22:39:25 -0400 |
| commit | c71ca7d084ff64e153b2d7d586a73bd66ee0a612 (patch) | |
| tree | 7b55608f1292c8a78d92d9286993f08bc6de2d08 | |
| parent | 732ab57a6ff82e80b06be90d1e1bab1dd9295926 (diff) | |
unimportant tweak
fix something my internal haskell parser does a double take at
| -rw-r--r-- | Remote/Helper/Encryptable.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Helper/Encryptable.hs b/Remote/Helper/Encryptable.hs index 01cefe858..70e3663ea 100644 --- a/Remote/Helper/Encryptable.hs +++ b/Remote/Helper/Encryptable.hs @@ -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 |