2011-04-16 20:41:46 +00:00
|
|
|
{- git-annex crypto types
|
|
|
|
|
-
|
2012-04-29 18:02:18 +00:00
|
|
|
- Copyright 2011-2012 Joey Hess <joey@kitenet.net>
|
2011-04-16 20:41:46 +00:00
|
|
|
-
|
|
|
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
|
|
|
-}
|
|
|
|
|
|
2011-12-21 01:47:56 +00:00
|
|
|
module Types.Crypto (
|
|
|
|
|
Cipher(..),
|
2012-04-29 18:02:18 +00:00
|
|
|
StorableCipher(..),
|
2011-12-21 01:47:56 +00:00
|
|
|
KeyIds(..),
|
|
|
|
|
) where
|
|
|
|
|
|
|
|
|
|
import Utility.Gpg (KeyIds(..))
|
2011-04-16 20:41:46 +00:00
|
|
|
|
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
|
|
|
|
2012-04-29 18:02:18 +00:00
|
|
|
data StorableCipher = EncryptedCipher String KeyIds | SharedCipher String
|
2011-12-08 20:01:46 +00:00
|
|
|
deriving (Ord, Eq)
|
