From 2272deb61a377ac52d751860dde7f0566b6e1a00 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sat, 24 Nov 2018 21:17:37 -0500
Subject: Extra debug print when sending announce response.

---
 src/Network/Tox/Onion/Handlers.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Network/Tox/Onion/Handlers.hs')

diff --git a/src/Network/Tox/Onion/Handlers.hs b/src/Network/Tox/Onion/Handlers.hs
index 0d8a9151..a16508cd 100644
--- a/src/Network/Tox/Onion/Handlers.hs
+++ b/src/Network/Tox/Onion/Handlers.hs
@@ -283,6 +283,7 @@ sendOnion getTimeout client req oaddr unwrap =
     -- Four tries and then we tap out.
     flip fix 4 $ \loop n -> do
     mb <- QR.sendQuery client (announceSerializer getTimeout) req oaddr
+    forM_ mb $ \r -> dput XAnnounce $ show (onionNodeInfo oaddr) ++ " sent response: " ++ show r
     maybe (if n>0 then loop $! n - 1 else return Nothing)
           (return . Just . unwrap (onionNodeInfo oaddr))
           $ join mb
-- 
cgit v1.2.3