diff options
Diffstat (limited to 'Types.hs')
-rw-r--r-- | Types.hs | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -19,10 +19,10 @@ newtype SecretKey = SecretKey B.ByteString data EncryptedSecretKey = EncryptedSecretKey B.ByteString (CostCalc BruteForceOp UnknownPassword) instance NFData EncryptedSecretKey where - rnf (EncryptedSecretKey b _) = rnf b + rnf (EncryptedSecretKey bs _) = rnf bs instance Show EncryptedSecretKey where - show (EncryptedSecretKey b _) = show b + show (EncryptedSecretKey bs _) = show bs instance Bruteforceable EncryptedSecretKey UnknownPassword where getBruteCostCalc (EncryptedSecretKey _ cc) = cc @@ -35,10 +35,10 @@ newtype StorableObject = StorableObject { fromStorableObject :: B.ByteString } newtype StorableObjectIdent = StorableObjectIdent B.ByteString deriving (Show, NFData) --- | A shard, with a known number (N of M). -data Shard = Shard ShardNum StorableObject +-- | A Shamir secret share, with a known number (N of M). +data Share = Share ShareNum StorableObject -type ShardNum = Int +type ShareNum = Int -- | A password used to encrypt a key stored in keysafe. newtype Password = Password B.ByteString |