diff options
Diffstat (limited to 'src/Network/Kademlia/Search.hs')
-rw-r--r-- | src/Network/Kademlia/Search.hs | 9 |
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 | ||
9 | import Control.Concurrent.Tasks | 9 | import Control.Concurrent.Tasks |
10 | import Control.Concurrent.STM | 10 | import Control.Concurrent.STM |
11 | import Control.Exception | ||
12 | import Control.Monad | 11 | import Control.Monad |
13 | import Data.Bool | ||
14 | import Data.Function | 12 | import Data.Function |
15 | import Data.List | ||
16 | import qualified Data.Map.Strict as Map | ||
17 | ;import Data.Map.Strict (Map) | ||
18 | import Data.Maybe | 13 | import Data.Maybe |
19 | import qualified Data.Set as Set | 14 | import qualified Data.Set as Set |
20 | ;import Data.Set (Set) | 15 | ;import Data.Set (Set) |
21 | import Data.Hashable (Hashable(..)) -- for type sigs | 16 | import Data.Hashable (Hashable(..)) -- for type sigs |
22 | import System.IO | ||
23 | import System.IO.Error | 17 | import System.IO.Error |
24 | 18 | ||
25 | import qualified Data.MinMaxPSQ as MM | 19 | import qualified Data.MinMaxPSQ as MM |
26 | ;import Data.MinMaxPSQ (MinMaxPSQ, MinMaxPSQ') | 20 | ;import Data.MinMaxPSQ (MinMaxPSQ, MinMaxPSQ') |
27 | import qualified Data.Wrapper.PSQ as PSQ | 21 | import 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) |
29 | import Network.Address hiding (NodeId) | ||
30 | import Network.Kademlia.Routing as R | 23 | import Network.Kademlia.Routing as R |
31 | #ifdef THREAD_DEBUG | 24 | #ifdef THREAD_DEBUG |
32 | import Control.Concurrent.Lifted.Instrument | 25 | import Control.Concurrent.Lifted.Instrument |