1 files changed, 4 insertions, 4 deletions

diff --git a/dht/src/Network/Tox/Onion/Routes.hs b/dht/src/Network/Tox/Onion/Routes.hs
index 46ded48d..93e9bfcd 100644
--- a/dht/src/Network/Tox/Onion/Routes.hs
+++ b/dht/src/Network/Tox/Onion/Routes.hs
@@ -539,16 +539,16 @@ handleEvent getnodes or e@(BuildRoute (RouteId rid)) = do
         Nothing -> routeLogger or $ "ONION Failed RouteId " ++ show rid
 
 
-lookupSender :: OnionRouter -> SockAddr -> Nonce8 -> IO (Maybe (OnionDestination RouteId))
-lookupSender or = lookupSender' (pendingQueries or) (routeLog or)
+lookupSender :: OnionRouter -> SockAddr -> Nonce8 -> STM (Maybe (OnionDestination RouteId))
+lookupSender or saddr n8 = lookupSender' (pendingQueries or) (routeLog or) saddr n8
 
 lookupSender' :: TVar (Word64Map PendingQuery)
                        -> TChan String
                        -> SockAddr
                        -> Nonce8
-                       -> IO (Maybe (OnionDestination RouteId))
+                       -> STM (Maybe (OnionDestination RouteId))
 lookupSender' pending log saddr (Nonce8 w8) = do
-    result <- atomically $ do
+    result <- do
         ks <- readTVar pending
         let r = W64.lookup w8 ks
         writeTChan log $ "ONION lookupSender " ++ unwords [show w8, "->", show r]