Fix -Wall suggestions in tests

3 files changed, 4 insertions, 13 deletions

diff --git a/tests/Data/Torrent/InfoHashSpec.hs b/tests/Data/Torrent/InfoHashSpec.hs
index 3cc110c1..06570ec9 100644
--- a/tests/Data/Torrent/InfoHashSpec.hs
+++ b/tests/Data/Torrent/InfoHashSpec.hs
@@ -4,7 +4,6 @@ module Data.Torrent.InfoHashSpec (spec) where
 import Control.Applicative
 import Data.ByteString as BS
 import Data.Convertible
-import Data.Maybe
 import System.FilePath
 import Test.Hspec
 import Test.QuickCheck
diff --git a/tests/Network/BitTorrent/Core/PeerIdSpec.hs b/tests/Network/BitTorrent/Core/PeerIdSpec.hs
index 4e9f1655..a4cc30b8 100644
--- a/tests/Network/BitTorrent/Core/PeerIdSpec.hs
+++ b/tests/Network/BitTorrent/Core/PeerIdSpec.hs
@@ -1,3 +1,4 @@
+{-# OPTIONS -fno-warn-orphans #-}
 module Network.BitTorrent.Core.PeerIdSpec (spec) where
 import Control.Applicative
 import Data.Text.Encoding as T
@@ -10,9 +11,9 @@ import Network.BitTorrent.Core.PeerId
 instance Arbitrary PeerId where
   arbitrary = oneof
     [ azureusStyle defaultClientId defaultVersionNumber
-        <$> pure ""
---    , shadowStyle  'X'             defaultVersionNumber
---        <$> (T.encodeUtf8 <$> arbitrary)
+        <$> (T.encodeUtf8 <$> arbitrary)
+    , shadowStyle  'X'             defaultVersionNumber
+        <$> (T.encodeUtf8 <$> arbitrary)
     ]
 
 spec :: Spec
diff --git a/tests/Network/BitTorrent/Tracker/MessageSpec.hs b/tests/Network/BitTorrent/Tracker/MessageSpec.hs
index a95cf0d7..f1d9130c 100644
--- a/tests/Network/BitTorrent/Tracker/MessageSpec.hs
+++ b/tests/Network/BitTorrent/Tracker/MessageSpec.hs
@@ -2,19 +2,10 @@
 module Network.BitTorrent.Tracker.MessageSpec (spec) where
 
 import Control.Applicative
-import Data.BEncode as BE
-import Data.ByteString.Char8 as BC
-import Data.ByteString.Lazy as BL
-import Data.List as L
-import Data.Maybe
 import Data.Word
-import Data.Text
 import Network
-import Network.URI
 import Test.Hspec
 import Test.QuickCheck
-import Test.QuickCheck.Gen
-import Network.HTTP.Types.URI
 
 import Data.Torrent.InfoHashSpec ()
 import Data.Torrent.ProgressSpec ()