git-annex/Types/Crypto.hs

18 lines
374 B
Haskell
Raw Normal View History

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.
-}
module Types.Crypto where
2011-04-16 20:41:46 +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
deriving (Ord, Eq)
2011-04-16 20:41:46 +00:00
newtype KeyIds = KeyIds [String]
deriving (Ord, Eq)