Removed redundant imports and other clean up.

2 files changed, 3 insertions, 22 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
 import Data.Function
 import Data.Maybe
 import qualified Data.Set as Set
-import Data.Time.Clock       (getCurrentTime)
-import Data.Time.Clock.POSIX (getPOSIXTime, utcTimeToPOSIXSeconds)
+import Data.Time.Clock.POSIX (getPOSIXTime)
 import Network.Kademlia.Routing   as R
 #ifdef THREAD_DEBUG
 import Control.Concurrent.Lifted.Instrument
@@ -27,27 +26,16 @@ import GHC.Conc                  (labelThread)
 #endif
 import Control.Concurrent.STM
 import Control.Monad
-import Data.Bits
 import Data.Hashable
-#if MIN_VERSION_iproute(1,7,4)
-import Data.IP hiding (fromSockAddr)
-#else
-import Data.IP
-#endif
-import Data.Monoid
-import Data.Serialize                 (Serialize)
 import Data.Time.Clock.POSIX          (POSIXTime)
 import Data.Ord
 import System.Entropy
 import System.Timeout
-import Text.PrettyPrint               as PP hiding (($$), (<>))
-import Text.PrettyPrint.HughesPJClass hiding (($$), (<>))
-import System.IO
 import DPut
 
 import qualified Data.Wrapper.PSQInt  as Int
          ;import Data.Wrapper.PSQInt  (pattern (:->))
-import Network.Address                (bucketRange,genBucketSample)
+import Network.Address                (bucketRange)
 import Network.Kademlia.Search
 import Control.Concurrent.Tasks
 import Network.Kademlia
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
 
 import Control.Concurrent.Tasks
 import Control.Concurrent.STM
-import Control.Exception
 import Control.Monad
-import Data.Bool
 import Data.Function
-import Data.List
-import qualified Data.Map.Strict     as Map
-         ;import Data.Map.Strict     (Map)
 import Data.Maybe
 import qualified Data.Set            as Set
          ;import Data.Set            (Set)
 import Data.Hashable                 (Hashable(..)) -- for type sigs
-import System.IO
 import System.IO.Error
 
 import qualified Data.MinMaxPSQ   as MM
          ;import Data.MinMaxPSQ   (MinMaxPSQ, MinMaxPSQ')
 import qualified Data.Wrapper.PSQ as PSQ
-         ;import Data.Wrapper.PSQ (pattern (:->), Binding, pattern Binding, Binding', PSQ, PSQKey)
-import Network.Address hiding (NodeId)
+         ;import Data.Wrapper.PSQ (pattern (:->), Binding, pattern Binding, Binding', PSQKey)
 import Network.Kademlia.Routing as R
 #ifdef THREAD_DEBUG
 import Control.Concurrent.Lifted.Instrument