summaryrefslogtreecommitdiff
path: root/Crypto.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Crypto.hs')
-rw-r--r--Crypto.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/Crypto.hs b/Crypto.hs
index 8b91c2dea..f99f8cbf1 100644
--- a/Crypto.hs
+++ b/Crypto.hs
@@ -78,8 +78,8 @@ genEncryptedCipher keyid variant highQuality = do
encryptCipher (mkCipher random) variant ks
where
(mkCipher, size) = case variant of
- HybridCipher -> (Cipher, cipherSize) -- used for MAC + symmetric
- PubKeyCipher -> (MacOnlyCipher, cipherBeginning) -- only used for MAC
+ Hybrid -> (Cipher, cipherSize) -- used for MAC + symmetric
+ PubKey -> (MacOnlyCipher, cipherBeginning) -- only used for MAC
{- Creates a new, shared Cipher. -}
genSharedCipher :: Bool -> IO StorableCipher
@@ -110,8 +110,8 @@ describeCipher (EncryptedCipher _ variant (KeyIds ks)) =
scheme ++ " with gpg " ++ keys ks ++ " " ++ unwords ks
where
scheme = case variant of
- HybridCipher -> "hybrid cipher"
- PubKeyCipher -> "pubkey crypto"
+ Hybrid -> "hybrid cipher"
+ PubKey -> "pubkey crypto"
keys [_] = "key"
keys _ = "keys"
@@ -135,8 +135,8 @@ decryptCipher (EncryptedCipher t variant _) =
mkCipher <$> Gpg.pipeStrict [ Param "--decrypt" ] t
where
mkCipher = case variant of
- HybridCipher -> Cipher
- PubKeyCipher -> MacOnlyCipher
+ Hybrid -> Cipher
+ PubKey -> MacOnlyCipher
{- Generates an encrypted form of a Key. The encryption does not need to be
- reversable, nor does it need to be the same type of encryption used