summaryrefslogtreecommitdiffhomepage
path: root/Types.hs
diff options
context:
space:
mode:
authorJoey Hess <joeyh@joeyh.name>2016-08-17 15:03:33 -0400
committerJoey Hess <joeyh@joeyh.name>2016-08-17 15:03:33 -0400
commit78c71badb458f3709f4689641dbb9efd53d962cf (patch)
treec00689a389ad0598f136566c0acbf0efabf8da76 /Types.hs
parentf60ac335e4e827fd242ab22539adb49f26e2c319 (diff)
downloadkeysafe-78c71badb458f3709f4689641dbb9efd53d962cf.tar.gz
progress display for storing
Diffstat (limited to 'Types.hs')
-rw-r--r--Types.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/Types.hs b/Types.hs
index 28458d5..5ba208f 100644
--- a/Types.hs
+++ b/Types.hs
@@ -18,6 +18,9 @@ newtype SecretKey = SecretKey B.ByteString
-- | The secret key, encrypted with a password.
data EncryptedSecretKey = EncryptedSecretKey B.ByteString (CostCalc BruteForceOp UnknownPassword)
+instance NFData EncryptedSecretKey where
+ rnf (EncryptedSecretKey b _) = rnf b
+
instance Show EncryptedSecretKey where
show (EncryptedSecretKey b _) = show b