summaryrefslogtreecommitdiff
path: root/src/Network/Kademlia/Bootstrap.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/Kademlia/Bootstrap.hs')
-rw-r--r--src/Network/Kademlia/Bootstrap.hs16
1 files changed, 2 insertions, 14 deletions
diff --git a/src/Network/Kademlia/Bootstrap.hs b/src/Network/Kademlia/Bootstrap.hs
index 4197e06e..1a70a9c5 100644
--- a/src/Network/Kademlia/Bootstrap.hs
+++ b/src/Network/Kademlia/Bootstrap.hs
@@ -16,8 +16,7 @@ module Network.Kademlia.Bootstrap where
16import Data.Function 16import Data.Function
17import Data.Maybe 17import Data.Maybe
18import qualified Data.Set as Set 18import qualified Data.Set as Set
19import Data.Time.Clock (getCurrentTime) 19import Data.Time.Clock.POSIX (getPOSIXTime)
20import Data.Time.Clock.POSIX (getPOSIXTime, utcTimeToPOSIXSeconds)
21import Network.Kademlia.Routing as R 20import Network.Kademlia.Routing as R
22#ifdef THREAD_DEBUG 21#ifdef THREAD_DEBUG
23import Control.Concurrent.Lifted.Instrument 22import Control.Concurrent.Lifted.Instrument
@@ -27,27 +26,16 @@ import GHC.Conc (labelThread)
27#endif 26#endif
28import Control.Concurrent.STM 27import Control.Concurrent.STM
29import Control.Monad 28import Control.Monad
30import Data.Bits
31import Data.Hashable 29import Data.Hashable
32#if MIN_VERSION_iproute(1,7,4)
33import Data.IP hiding (fromSockAddr)
34#else
35import Data.IP
36#endif
37import Data.Monoid
38import Data.Serialize (Serialize)
39import Data.Time.Clock.POSIX (POSIXTime) 30import Data.Time.Clock.POSIX (POSIXTime)
40import Data.Ord 31import Data.Ord
41import System.Entropy 32import System.Entropy
42import System.Timeout 33import System.Timeout
43import Text.PrettyPrint as PP hiding (($$), (<>))
44import Text.PrettyPrint.HughesPJClass hiding (($$), (<>))
45import System.IO
46import DPut 34import DPut
47 35
48import qualified Data.Wrapper.PSQInt as Int 36import qualified Data.Wrapper.PSQInt as Int
49 ;import Data.Wrapper.PSQInt (pattern (:->)) 37 ;import Data.Wrapper.PSQInt (pattern (:->))
50import Network.Address (bucketRange,genBucketSample) 38import Network.Address (bucketRange)
51import Network.Kademlia.Search 39import Network.Kademlia.Search
52import Control.Concurrent.Tasks 40import Control.Concurrent.Tasks
53import Network.Kademlia 41import Network.Kademlia