Removed redundant imports and other clean up.

1 files changed, 2 insertions, 22 deletions

diff --git a/src/Network/Kademlia.hs b/src/Network/Kademlia.hs
index 50c98967..44ef2ec1 100644
--- a/src/Network/Kademlia.hs
+++ b/src/Network/Kademlia.hs
@@ -6,11 +6,8 @@
 {-# LANGUAGE PatternSynonyms #-}
 module Network.Kademlia 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
 import Network.Kademlia.Routing   as R
 #ifdef THREAD_DEBUG
 import Control.Concurrent.Lifted.Instrument
@@ -20,24 +17,7 @@ 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 Network.Address                (bucketRange,genBucketSample)
-import Network.Kademlia.Search
-import System.Entropy
-import System.Timeout
-import Text.PrettyPrint               as PP hiding (($$), (<>))
-import Text.PrettyPrint.HughesPJClass hiding (($$), (<>))
-import System.IO
-import Control.Concurrent.Tasks
 
 -- | The status of a given node with respect to a given routint table.
 data RoutingStatus
@@ -147,7 +127,7 @@ accepted (_,y) = RoutingTransition y Accepted
 insertNode :: Kademlia nid ni -> ni -> IO ()
 insertNode (Kademlia reporter space io) node = do
 
-  tm <- utcTimeToPOSIXSeconds <$> getCurrentTime
+  tm <- getPOSIXTime
 
   (ps,reaction) <- atomically $ do
     tbl <- tblRead io