summaryrefslogtreecommitdiffhomepage
path: root/Types.hs
diff options
context:
space:
mode:
authorJoey Hess <joeyh@joeyh.name>2016-08-11 16:47:55 -0400
committerJoey Hess <joeyh@joeyh.name>2016-08-11 16:47:55 -0400
commit3d33805c61db111dbd324df4a19eddb6aad42606 (patch)
tree3049e4058990af048c2d3fd34160f4dcfa0e4029 /Types.hs
parentb2719f6e84c0c1f49ac6ab9b60846a899563961c (diff)
downloadkeysafe-3d33805c61db111dbd324df4a19eddb6aad42606.tar.gz
partial demo
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 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