add cipher field to AnnexState

1 files changed, 22 insertions, 0 deletions

diff --git a/CryptoTypes.hs b/CryptoTypes.hs
new file mode 100644
index 000000000..944a9d34e
--- /dev/null
+++ b/CryptoTypes.hs
@@ -0,0 +1,22 @@
+{- git-annex crypto types
+ -
+ - Copyright 2011 Joey Hess <joey@kitenet.net>
+ -
+ - Licensed under the GNU GPL version 3 or higher.
+ -}
+
+module CryptoTypes where
+
+import Data.String.Utils
+
+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), "")]