From 75e3bd555ee682b35e87bcd367b92117ce7a66b8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Olivier=20Ch=C3=A9ron?= Date: Mon, 3 Apr 2017 19:32:50 +0200 Subject: [PATCH] Add Show instances for EdDSA secret keys Other algorithms define Show instances for their secrets. Here ScrubbedBytes will obfuscate the content anyway. Will be useful for X509.PrivKey, which requires a Show instance. --- Crypto/PubKey/Ed25519.hs | 2 +- Crypto/PubKey/Ed448.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Crypto/PubKey/Ed25519.hs b/Crypto/PubKey/Ed25519.hs index ffb144f..9656e56 100644 --- a/Crypto/PubKey/Ed25519.hs +++ b/Crypto/PubKey/Ed25519.hs @@ -42,7 +42,7 @@ import Crypto.Random -- | An Ed25519 Secret key newtype SecretKey = SecretKey ScrubbedBytes - deriving (Eq,ByteArrayAccess,NFData) + deriving (Show,Eq,ByteArrayAccess,NFData) -- | An Ed25519 public key newtype PublicKey = PublicKey Bytes diff --git a/Crypto/PubKey/Ed448.hs b/Crypto/PubKey/Ed448.hs index acd751c..726f61b 100644 --- a/Crypto/PubKey/Ed448.hs +++ b/Crypto/PubKey/Ed448.hs @@ -46,7 +46,7 @@ import Crypto.Random -- | An Ed448 Secret key newtype SecretKey = SecretKey ScrubbedBytes - deriving (Eq,ByteArrayAccess,NFData) + deriving (Show,Eq,ByteArrayAccess,NFData) -- | An Ed448 public key newtype PublicKey = PublicKey Bytes