Fix -Wall suggestions in tests

2 files changed, 4 insertions, 12 deletions

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 ()