From 9fe7e6be7064d9c47e6c6fd4f1b3a70da604727d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 16 Apr 2011 16:41:46 -0400
Subject: add cipher field to AnnexState

---
 Crypto.hs | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

(limited to 'Crypto.hs')

diff --git a/Crypto.hs b/Crypto.hs
index 2e20dddb1..337aedff6 100644
--- a/Crypto.hs
+++ b/Crypto.hs
@@ -36,18 +36,7 @@ import Types
 import Key
 import RemoteClass
 import Utility
-
-data Cipher = Cipher String -- XXX ideally, this would be a locked memory region
-
-data EncryptedCipher = EncryptedCipher String KeyIds
-
-data KeyIds = KeyIds [String]
-
-instance Show KeyIds where
-	show (KeyIds ks) = join "," ks
-
-instance Read KeyIds where
-	readsPrec _ s = [(KeyIds (split "," s), "")]
+import CryptoTypes
 
 {- Creates a new Cipher, encrypted as specified in the remote's configuration -}
 genCipher :: RemoteConfig -> IO EncryptedCipher
-- 
cgit v1.2.3