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