summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2019-01-16 21:50:19 -0500
committerJoe Crayne <joe@jerkface.net>2019-01-16 21:50:19 -0500
commitb5df06bf0fed5a30a9b16e1032037e6cea378464 (patch)
tree4cba15d7523f45911ec5682ac05c25fe6c5e6487 /src/Network/BitTorrent
parentf9339cd18bceba3f5000f1d2ccd9ce7dbc5f2cb0 (diff)
Queries table: Switched MVar with callback.
Diffstat (limited to 'src/Network/BitTorrent')
-rw-r--r--src/Network/BitTorrent/MainlineDHT.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/MainlineDHT.hs b/src/Network/BitTorrent/MainlineDHT.hs
index 6f47e38f..180ae82d 100644
--- a/src/Network/BitTorrent/MainlineDHT.hs
+++ b/src/Network/BitTorrent/MainlineDHT.hs
@@ -82,6 +82,7 @@ import qualified Data.Aeson as JSON
82import Text.Read 82import Text.Read
83import System.Global6 83import System.Global6
84import Control.TriadCommittee 84import Control.TriadCommittee
85import Data.TableMethods
85import DPut 86import DPut
86import DebugTag 87import DebugTag
87 88
@@ -630,8 +631,6 @@ newClient swarms addr = do
630 _ -> routing4 routing 631 _ -> routing4 routing
631 R.thisNode <$> readTVar var 632 R.thisNode <$> readTVar var
632 , clientResponseId = return 633 , clientResponseId = return
633 , clientEnterQuery = \_ -> return ()
634 , clientLeaveQuery = \_ _ -> return ()
635 } 634 }
636 635
637 -- TODO: Provide some means of shutting down these five auxillary threads: 636 -- TODO: Provide some means of shutting down these five auxillary threads: