1 files changed, 1 insertions, 8 deletions

diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs
index 71be24eb..ef3f6bd4 100644
--- a/dht/examples/dhtd.hs
+++ b/dht/examples/dhtd.hs
@@ -355,13 +355,6 @@ showPolicy TryingToConnect   = "*"
 showPolicy OpenToConnect     = "o"
 showPolicy RefusingToConnect = "x"
 
-waitOn :: (nid -> ni -> (result -> IO ()) -> IO ())
-             -> nid -> ni -> IO result
-waitOn bg nid ni = do
-    mvar <- newEmptyMVar
-    bg nid ni $ putMVar mvar
-    takeMVar mvar
-
 getSessions :: TVar (Map.Map Uniq24 AggregateSession) -> Uniq24 -> STM [Tox.Session]
 getSessions ssvar u24 = do
     agmap <- readTVar ssvar
@@ -788,7 +781,7 @@ clientSession s@Session{..} sock cnum h = do
                                 go | null destination = fmap Right . qhandler self
                                    | otherwise        = case readEither destination of
                                         Right ni -> fmap (maybe (Left "Timeout.") Right)
-                                                    . flip (either id waitOn $ searchQuery qsearch) ni
+                                                    . flip (searchQuery qsearch) ni
                                         Left  e  -> const $ return $ Left ("Bad destination: "++e)
                         maybe (hPutClient h ("Unsupported method: "++method))
                               goQuery