Fix -Wall suggestions in tests

1 files changed, 4 insertions, 3 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