add cipher field to AnnexState

This commit is contained in:
Joey Hess 2011-04-16 16:41:46 -04:00
parent 5efd413270
commit 9fe7e6be70
3 changed files with 27 additions and 13 deletions

View file

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