1 files changed, 6 insertions, 3 deletions

diff --git a/tests/Network/BitTorrent/Core/PeerIdSpec.hs b/tests/Network/BitTorrent/Core/PeerIdSpec.hs
index 7153ef68..4e9f1655 100644
--- a/tests/Network/BitTorrent/Core/PeerIdSpec.hs
+++ b/tests/Network/BitTorrent/Core/PeerIdSpec.hs
@@ -1,15 +1,18 @@
 module Network.BitTorrent.Core.PeerIdSpec (spec) where
 import Control.Applicative
+import Data.Text.Encoding as T
 import Test.Hspec
 import Test.QuickCheck
-import Test.QuickCheck.Instances
+import Test.QuickCheck.Instances ()
 import Network.BitTorrent.Core.PeerId
 
 
 instance Arbitrary PeerId where
   arbitrary = oneof
-    [ azureusStyle defaultClientId defaultVersionNumber <$> arbitrary
-    , shadowStyle  'X'             defaultVersionNumber <$> arbitrary
+    [ azureusStyle defaultClientId defaultVersionNumber
+        <$> pure ""
+--    , shadowStyle  'X'             defaultVersionNumber
+--        <$> (T.encodeUtf8 <$> arbitrary)
     ]
 
 spec :: Spec