1 files changed, 2 insertions, 0 deletions
diff --git a/src/Network/BitTorrent/MainlineDHT.hs b/src/Network/BitTorrent/MainlineDHT.hs
index 63e67ad3..991473a9 100644
--- a/src/Network/BitTorrent/MainlineDHT.hs
+++ b/src/Network/BitTorrent/MainlineDHT.hs
@@ -629,6 +629,8 @@ newClient swarms addr = do
                            _             -> routing4 routing
                R.thisNode <$> readTVar var
            , clientResponseId    = return
+            , clientEnterQuery    = \_ -> return ()
+            , clientLeaveQuery    = \_ _ -> return ()
            }
    -- TODO: Provide some means of shutting down these five auxillary threads:

diff --git a/src/Network/BitTorrent/MainlineDHT.hs b/src/Network/BitTorrent/MainlineDHT.hs index 63e67ad3..991473a9 100644 --- a/src/Network/BitTorrent/MainlineDHT.hs +++ b/src/Network/BitTorrent/MainlineDHT.hs
@@ -629,6 +629,8 @@ newClient swarms addr = do
629	_ -> routing4 routing	629	_ -> routing4 routing
630	R.thisNode <$> readTVar var	630	R.thisNode <$> readTVar var
631	, clientResponseId = return	631	, clientResponseId = return
		632	, clientEnterQuery = \_ -> return ()
		633	, clientLeaveQuery = \_ _ -> return ()
632	}	634	}
633		635
634	-- TODO: Provide some means of shutting down these five auxillary threads:	636	-- TODO: Provide some means of shutting down these five auxillary threads: