rename modules for data types into Types/ directory

1 files changed, 23 insertions, 0 deletions

diff --git a/Types/Crypto.hs b/Types/Crypto.hs
new file mode 100644
index 000000000..a39a016b8
--- /dev/null
+++ b/Types/Crypto.hs
@@ -0,0 +1,23 @@
+{- git-annex crypto types
+ -
+ - Copyright 2011 Joey Hess <joey@kitenet.net>
+ -
+ - Licensed under the GNU GPL version 3 or higher.
+ -}
+
+module Types.Crypto where
+
+import Data.String.Utils
+
+-- XXX ideally, this would be a locked memory region
+newtype Cipher = Cipher String
+
+data EncryptedCipher = EncryptedCipher String KeyIds
+
+newtype KeyIds = KeyIds [String]
+
+instance Show KeyIds where
+	show (KeyIds ks) = join "," ks
+
+instance Read KeyIds where
+	readsPrec _ s = [(KeyIds (split "," s), "")]