From 78c71badb458f3709f4689641dbb9efd53d962cf Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 17 Aug 2016 15:03:33 -0400 Subject: progress display for storing --- Types.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Types.hs') 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 -- cgit v1.2.3