Switched awaitMessage to continuation-passing style.

1 files changed, 2 insertions, 2 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index f0a48bb2..8e8d47a2 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -469,13 +469,13 @@ main = do
            (atomically . writeTVar (Mainline.contactInfo swarms))
            (peerdb >>= S.decodeLazy)
 
-    quitBt <- forkListener bt
+    quitBt <- forkListener (clientNet bt)
 
     let toxport = succ $ fromMaybe 33445 (fromIntegral <$> sockAddrPort addr)
     addrTox <- getBindAddress (show toxport) True
     (tox,toxR) <- Tox.newClient addrTox
 
-    quitTox <- forkListener tox
+    quitTox <- forkListener (clientNet tox)
 
     mainlineSearches <- atomically $ newTVar Map.empty
     toxSearches <- atomically $ newTVar Map.empty