DHTMessage Show instance for debugging.

1 files changed, 4 insertions, 1 deletions

diff --git a/ToxCrypto.hs b/ToxCrypto.hs
index 5e602fc9..4a466357 100644
--- a/ToxCrypto.hs
+++ b/ToxCrypto.hs
@@ -92,6 +92,9 @@ instance Serialize Auth where
     get = Auth . Poly1305.Auth . BA.convert <$> getBytes 16
     put (Auth (Poly1305.Auth bs)) = putByteString $ BA.convert bs
 
+instance Typeable a => Show (Encrypted a) where
+    show (Encrypted _) = "Encrypted "++show (typeOf (undefined :: a))
+
 encryptedAuth :: Encrypted a -> Auth
 encryptedAuth (Encrypted bs)
     | Right auth <- decode (B.take 16 bs) = auth
@@ -279,7 +282,7 @@ data Assym a = Assym
     , assymNonce :: Nonce24
     , assymData :: a
     }
- deriving (Functor,Foldable,Traversable)
+ deriving (Functor,Foldable,Traversable, Show)
 
 instance Sized a => Sized (Assym a) where
     size = case size of