1 files changed, 3 insertions, 0 deletions
diff --git a/Types.hs b/Types.hs
index 44c38a2..e8bd8c0 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 Show EncryptedSecretKey where
+	show (EncryptedSecretKey b _) = show b
+
 instance Bruteforceable EncryptedSecretKey UnknownPassword where
 	getBruteCostCalc (EncryptedSecretKey _ cc) = cc