diff options
Diffstat (limited to 'Types/Crypto.hs')
-rw-r--r-- | Types/Crypto.hs | 23 |
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), "")] |