debug message in defaultUnRecHook

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index dbfaede6..35681c4a 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -370,6 +370,8 @@ data NetCryptoSession = NCrypto
     -- ^ user interfaces may "listen" by inserting themselves into this map
     -- with a unique id and a new TChan, and then reading from the TChan
     }
+instance Eq NetCryptoSession where
+    x == y = ncSessionId x == ncSessionId y
 
 data NetCryptoSessions = NCSessions
     { netCryptoSessions       :: TVar (Map.Map SockAddr NetCryptoSession)
@@ -1320,7 +1322,9 @@ defaultStatusMsgHook session cm@(UpToN {msgID=STATUSMESSAGE, msgBytes=msg}) = do
 
 -- | updates ncLastNMsgs, and sends message to type-0 listeners
 defaultUnRecHook :: MessageType -> NetCryptoHook
-defaultUnRecHook = hookHelper False
+defaultUnRecHook typ session cm = do
+    dput XNetCrypto $ "(NetCrypto) defaultUnRecHook: packet (sessionid: " ++ show (ncSessionId session) ++ ") " ++ show cm
+    hookHelper False typ session cm
 
 hookHelper :: Bool -> MessageType -> NetCryptoHook
 hookHelper _ typ session cm | any ($ typ) [isKillPacket, isOFFLINE] = atomically $ do