From 5181c77ce7dd73d622ff3921b90bf2741bedb646 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Fri, 3 Jan 2020 17:12:14 -0500
Subject: QueryResponse: Use three-way sum to distinguish Canceled and
 Timedout.

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

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

diff --git a/dht/src/Network/Tox/Onion/Handlers.hs b/dht/src/Network/Tox/Onion/Handlers.hs
index 65ec846c..fa7bc83c 100644
--- a/dht/src/Network/Tox/Onion/Handlers.hs
+++ b/dht/src/Network/Tox/Onion/Handlers.hs
@@ -285,7 +285,7 @@ sendOnion getTimeout client req oaddr unwrap =
     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
+          $ join $ resultToMaybe mb
 
 
 -- | Lookup the secret counterpart for a given alias key.
-- 
cgit v1.2.3