diff options
author | Joe Crayne <joe@jerkface.net> | 2019-01-16 21:50:19 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2019-01-16 21:50:19 -0500 |
commit | b5df06bf0fed5a30a9b16e1032037e6cea378464 (patch) | |
tree | 4cba15d7523f45911ec5682ac05c25fe6c5e6487 /src/Network/BitTorrent | |
parent | f9339cd18bceba3f5000f1d2ccd9ce7dbc5f2cb0 (diff) |
Queries table: Switched MVar with callback.
Diffstat (limited to 'src/Network/BitTorrent')
-rw-r--r-- | src/Network/BitTorrent/MainlineDHT.hs | 3 |
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 | |||
82 | import Text.Read | 82 | import Text.Read |
83 | import System.Global6 | 83 | import System.Global6 |
84 | import Control.TriadCommittee | 84 | import Control.TriadCommittee |
85 | import Data.TableMethods | ||
85 | import DPut | 86 | import DPut |
86 | import DebugTag | 87 | import 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: |