1 files changed, 1 insertions, 0 deletions

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