Fix warnings

2 files changed, 7 insertions, 6 deletions

diff --git a/tests/Network/BitTorrent/Core/PeerIdSpec.hs b/tests/Network/BitTorrent/Core/PeerIdSpec.hs
index 7ed8a976..7153ef68 100644
--- a/tests/Network/BitTorrent/Core/PeerIdSpec.hs
+++ b/tests/Network/BitTorrent/Core/PeerIdSpec.hs
@@ -2,6 +2,7 @@ module Network.BitTorrent.Core.PeerIdSpec (spec) where
 import Control.Applicative
 import Test.Hspec
 import Test.QuickCheck
+import Test.QuickCheck.Instances
 import Network.BitTorrent.Core.PeerId
 
 
diff --git a/tests/Network/BitTorrent/Tracker/MessageSpec.hs b/tests/Network/BitTorrent/Tracker/MessageSpec.hs
index 62b4ab04..99518067 100644
--- a/tests/Network/BitTorrent/Tracker/MessageSpec.hs
+++ b/tests/Network/BitTorrent/Tracker/MessageSpec.hs
@@ -10,17 +10,17 @@ import Network
 import Network.URI
 import Test.Hspec
 import Test.QuickCheck
-import Network.HTTP.Types.URI
+--import Network.HTTP.Types.URI
 
-import Data.Torrent.InfoHashSpec hiding (spec)
-import Data.Torrent.ProgressSpec hiding (spec)
-import Network.BitTorrent.Core.PeerIdSpec hiding (spec)
+import Data.Torrent.InfoHashSpec ()
+import Data.Torrent.ProgressSpec ()
+import Network.BitTorrent.Core.PeerIdSpec ()
 
 import Network.BitTorrent.Tracker.Message
 
 
-prop_bencode :: Eq a => BEncode a => a -> Bool
-prop_bencode a = BE.decode (BL.toStrict (BE.encode a)) == return a
+--prop_bencode :: Eq a => BEncode a => a -> Bool
+--prop_bencode a = BE.decode (BL.toStrict (BE.encode a)) == return a
 
 --prop_urlencode :: Eq a => URLDecoded a => URLEncoded a => a -> Bool
 --prop_urlencode a = urlDecode (T.pack (urlEncode a)) == a