6 files changed, 2 insertions, 11 deletions

diff --git a/src/Data/BEncode/Pretty.hs b/src/Data/BEncode/Pretty.hs
index 89fcb489..8beb101b 100644
--- a/src/Data/BEncode/Pretty.hs
+++ b/src/Data/BEncode/Pretty.hs
@@ -4,11 +4,9 @@ module Data.BEncode.Pretty where -- (showBEncode) where
 import Data.BEncode.Types
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Lazy as BL
-import qualified Data.ByteString.Lazy.Char8 as BL8
 import Data.Text (Text)
 import qualified Data.Text as T
 import Data.Text.Encoding
-import Text.Printf
 import qualified Data.ByteString.Base16 as Base16
 #ifdef BENCODE_AESON
 import Data.BEncode.BDict hiding (map)
diff --git a/src/Data/CyclicBuffer.hs b/src/Data/CyclicBuffer.hs
index 0cc87459..92b6bacc 100644
--- a/src/Data/CyclicBuffer.hs
+++ b/src/Data/CyclicBuffer.hs
@@ -4,9 +4,7 @@ module Data.CyclicBuffer {- TODO: export list -} where
 
 
 import Control.Concurrent.STM
-import Control.Concurrent.STM.TArray
 import Control.Monad
-import Control.Applicative
 import Data.Word
 import Data.Array.MArray
 import Data.Maybe
diff --git a/src/Data/PacketQueue.hs b/src/Data/PacketQueue.hs
index ffe00d7d..93f9ba14 100644
--- a/src/Data/PacketQueue.hs
+++ b/src/Data/PacketQueue.hs
@@ -30,9 +30,7 @@ module Data.PacketQueue
     ) where
 
 import Control.Concurrent.STM
-import Control.Concurrent.STM.TArray
 import Control.Monad
-import Control.Applicative
 import Data.Word
 import Data.Array.MArray
 import Data.Maybe
diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs
index dbe248eb..a746b54c 100644
--- a/src/Data/Torrent.hs
+++ b/src/Data/Torrent.hs
@@ -195,7 +195,6 @@ import System.FilePath
 import System.Posix.Types
 
 import Network.Address
-import Network.Kademlia.Routing
 
 
 {-----------------------------------------------------------------------
diff --git a/src/Data/Word64RangeMap.hs b/src/Data/Word64RangeMap.hs
index 0b25f56d..f4736d59 100644
--- a/src/Data/Word64RangeMap.hs
+++ b/src/Data/Word64RangeMap.hs
@@ -12,11 +12,9 @@ import Data.Word
 import Data.Array.Unboxed
 import qualified Data.Array.MArray as MA
 import Data.Array.MArray (MArray(..))
-import qualified Data.Array.Base as Base
 import Data.Reference
 import Debug.Trace
 import Control.Concurrent.STM
-import Control.Concurrent.STM.TArray
 import Data.Array.IO
 import Data.IORef
 
diff --git a/src/Data/Wrapper/PSQ.hs b/src/Data/Wrapper/PSQ.hs
index 631af6ec..5d32e16c 100644
--- a/src/Data/Wrapper/PSQ.hs
+++ b/src/Data/Wrapper/PSQ.hs
@@ -19,8 +19,8 @@ fold' f a q = PSQueue.foldr f' a q
 #else
     ( module Data.Wrapper.PSQ , module HashPSQ ) where
 
-import Data.OrdPSQ as OrdPSQ hiding (insert, map, singleton, minView)
-import qualified Data.OrdPSQ as OrdPSQ
+-- import Data.OrdPSQ as OrdPSQ hiding (insert, map, singleton, minView)
+-- import qualified Data.OrdPSQ as OrdPSQ
 
 import Data.HashPSQ as HashPSQ hiding (insert, map, singleton, minView)
 import qualified Data.HashPSQ as Q