diff options
author | jim@bo <jim@bo> | 2018-06-22 15:46:43 -0400 |
---|---|---|
committer | jim@bo <jim@bo> | 2018-06-22 15:46:43 -0400 |
commit | 54af27be179f998b17ecff9b5499214df09fb0b2 (patch) | |
tree | f5f3be08a5a488ad782d811067664f190d7b19af /examples/dhtd.hs | |
parent | d96aa110fcc32d9a8afb14564f45f296dd1624e4 (diff) |
OutGoingResult now offers packet for convenience
Also, don't send anohter Online, just send duplicate packet.
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r-- | examples/dhtd.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index 628a58bd..4a246660 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
@@ -1426,7 +1426,7 @@ newXmmpSink session@(Tox.NCrypto { ncOutgoingQueue = outGoingQVar, ncPacketQueue | |||
1426 | rTry <- tryAppendQueueOutgoing extra outq msg | 1426 | rTry <- tryAppendQueueOutgoing extra outq msg |
1427 | case rTry of | 1427 | case rTry of |
1428 | OGFull -> retry | 1428 | OGFull -> retry |
1429 | OGSuccess -> return OGSuccess | 1429 | OGSuccess x -> return (OGSuccess x) |
1430 | OGEncodeFail -> return OGEncodeFail | 1430 | OGEncodeFail -> return OGEncodeFail |
1431 | when (r == OGEncodeFail) $ | 1431 | when (r == OGEncodeFail) $ |
1432 | dput XMisc ("FAILURE to Encode Outgoing: " ++ show msg) | 1432 | dput XMisc ("FAILURE to Encode Outgoing: " ++ show msg) |