~ Suppress some warnings.

2 files changed, 1 insertions, 12 deletions

diff --git a/src/Network/BitTorrent/Tracker.hs b/src/Network/BitTorrent/Tracker.hs
index d069730f..be5c2fb8 100644
--- a/src/Network/BitTorrent/Tracker.hs
+++ b/src/Network/BitTorrent/Tracker.hs
@@ -35,20 +35,10 @@ import Control.Concurrent.STM
 import Control.Exception
 import Control.Monad
 
-import Data.BEncode
-import           Data.ByteString (ByteString)
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Char8 as BC
-import           Data.Char
 import           Data.List as L
-import           Data.Map (Map)
-import qualified Data.Map as M
-import           Data.Monoid
 import           Data.IORef
-import           Data.Text (Text)
 
 import Network
-import Network.HTTP
 import Network.URI
 
 import Data.Torrent
@@ -200,7 +190,7 @@ newSession chanSize pr i ps
              <*> pure chan
 
 waitInterval :: TSession -> IO ()
-waitInterval se @ TSession {..} = do
+waitInterval TSession {..} = do
     delay <- readIORef seInterval
     threadDelay (delay * sec)
   where
diff --git a/src/Network/BitTorrent/Tracker/Protocol.hs b/src/Network/BitTorrent/Tracker/Protocol.hs
index 44398920..d1fff73c 100644
--- a/src/Network/BitTorrent/Tracker/Protocol.hs
+++ b/src/Network/BitTorrent/Tracker/Protocol.hs
@@ -50,7 +50,6 @@ import Data.Torrent
 
 import Network
 import Network.Socket
-import Network.URI
 
 import Network.BitTorrent.Peer