serialization for tunings

1 files changed, 3 insertions, 0 deletions

diff --git a/Types.hs b/Types.hs
index 7873175..41c3a00 100644
--- a/Types.hs
+++ b/Types.hs
@@ -42,12 +42,15 @@ data Tunables = Tunables
 
 -- | An expensive hash, used to make it hard to crack an encrypted secret key.
 data ExpensiveHashTunable = UseArgon2 Argon2.HashOptions (Cost CreationOp)
+	deriving (Show)
 
 -- | What encryption to use.
 data EncryptionTunable = UseAES256
+	deriving (Show)
 
 -- | An additional puzzle that makes decryption more expensive.
 data DecryptionPuzzleTunable = KeyBlindingLeftSide (Cost DecryptionOp)
+	deriving (Show)
 
 defaultTunables :: Tunables
 defaultTunables = Tunables