diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-11-24 21:17:37 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-11-27 22:47:28 -0500 |
| commit | 2272deb61a377ac52d751860dde7f0566b6e1a00 (patch) | |
| tree | f716901bdbfe85ee6e10d7c9b74b97fa25348122 /src/Network/Tox/Onion/Handlers.hs | |
| parent | 901a29f6af7ba0d5b423895a3a5d9b93249a7cf8 (diff) | |
Extra debug print when sending announce response.
Diffstat (limited to 'src/Network/Tox/Onion/Handlers.hs')
| -rw-r--r-- | src/Network/Tox/Onion/Handlers.hs | 1 |
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 = | |||
| 283 | -- Four tries and then we tap out. | 283 | -- Four tries and then we tap out. |
| 284 | flip fix 4 $ \loop n -> do | 284 | flip fix 4 $ \loop n -> do |
| 285 | mb <- QR.sendQuery client (announceSerializer getTimeout) req oaddr | 285 | mb <- QR.sendQuery client (announceSerializer getTimeout) req oaddr |
| 286 | forM_ mb $ \r -> dput XAnnounce $ show (onionNodeInfo oaddr) ++ " sent response: " ++ show r | ||
| 286 | maybe (if n>0 then loop $! n - 1 else return Nothing) | 287 | maybe (if n>0 then loop $! n - 1 else return Nothing) |
| 287 | (return . Just . unwrap (onionNodeInfo oaddr)) | 288 | (return . Just . unwrap (onionNodeInfo oaddr)) |
| 288 | $ join mb | 289 | $ join mb |