From 1f1bcd70f5c0b7d3c1a135fa8b53a03b507442c4 Mon Sep 17 00:00:00 2001 From: joe Date: Fri, 4 Aug 2017 18:34:18 -0400 Subject: Switched awaitMessage to continuation-passing style. --- examples/dhtd.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples') 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 -- cgit v1.2.3