2011-04-16 20:41:46 +00:00
|
|
|
{- git-annex crypto types
|
|
|
|
|
-
|
|
|
|
|
- Copyright 2011 Joey Hess <joey@kitenet.net>
|
|
|
|
|
-
|
|
|
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
|
|
|
-}
|
|
|
|
|
|
2011-06-02 01:56:04 +00:00
|
|
|
module Types.Crypto where
|
2011-04-16 20:41:46 +00:00
|
|
|
|
|
|
|
|
import Data.String.Utils
|
|
|
|
|
|
2011-05-21 15:07:08 +00:00
|
|
|
-- XXX ideally, this would be a locked memory region
|
|
|
|
|
newtype Cipher = Cipher String
|
2011-04-16 20:41:46 +00:00
|
|
|
|
|
|
|
|
data EncryptedCipher = EncryptedCipher String KeyIds
|
|
|
|
|
|
2011-05-21 15:07:08 +00:00
|
|
|
newtype KeyIds = KeyIds [String]
|
2011-04-16 20:41:46 +00:00
|
|
|
|
|
|
|
|
instance Show KeyIds where
|
|
|
|
|
show (KeyIds ks) = join "," ks
|
|
|
|
|
|
|
|
|
|
instance Read KeyIds where
|
|
|
|
|
readsPrec _ s = [(KeyIds (split "," s), "")]
|
