summaryrefslogtreecommitdiff
path: root/src/Network/Kademlia/Search.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/Kademlia/Search.hs')
-rw-r--r--src/Network/Kademlia/Search.hs9
1 files changed, 1 insertions, 8 deletions
diff --git a/src/Network/Kademlia/Search.hs b/src/Network/Kademlia/Search.hs
index 29a8fc61..e13e0742 100644
--- a/src/Network/Kademlia/Search.hs
+++ b/src/Network/Kademlia/Search.hs
@@ -8,25 +8,18 @@ module Network.Kademlia.Search where
8 8
9import Control.Concurrent.Tasks 9import Control.Concurrent.Tasks
10import Control.Concurrent.STM 10import Control.Concurrent.STM
11import Control.Exception
12import Control.Monad 11import Control.Monad
13import Data.Bool
14import Data.Function 12import Data.Function
15import Data.List
16import qualified Data.Map.Strict as Map
17 ;import Data.Map.Strict (Map)
18import Data.Maybe 13import Data.Maybe
19import qualified Data.Set as Set 14import qualified Data.Set as Set
20 ;import Data.Set (Set) 15 ;import Data.Set (Set)
21import Data.Hashable (Hashable(..)) -- for type sigs 16import Data.Hashable (Hashable(..)) -- for type sigs
22import System.IO
23import System.IO.Error 17import System.IO.Error
24 18
25import qualified Data.MinMaxPSQ as MM 19import qualified Data.MinMaxPSQ as MM
26 ;import Data.MinMaxPSQ (MinMaxPSQ, MinMaxPSQ') 20 ;import Data.MinMaxPSQ (MinMaxPSQ, MinMaxPSQ')
27import qualified Data.Wrapper.PSQ as PSQ 21import qualified Data.Wrapper.PSQ as PSQ
28 ;import Data.Wrapper.PSQ (pattern (:->), Binding, pattern Binding, Binding', PSQ, PSQKey) 22 ;import Data.Wrapper.PSQ (pattern (:->), Binding, pattern Binding, Binding', PSQKey)
29import Network.Address hiding (NodeId)
30import Network.Kademlia.Routing as R 23import Network.Kademlia.Routing as R
31#ifdef THREAD_DEBUG 24#ifdef THREAD_DEBUG
32import Control.Concurrent.Lifted.Instrument 25import Control.Concurrent.Lifted.Instrument