From 3d33805c61db111dbd324df4a19eddb6aad42606 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 11 Aug 2016 16:47:55 -0400 Subject: partial demo --- Types.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Types.hs') 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 -- cgit v1.2.3