Fix build failure

1 files changed, 2 insertions, 5 deletions

diff --git a/tests/Network/BitTorrent/Exchange/BlockSpec.hs b/tests/Network/BitTorrent/Exchange/BlockSpec.hs
index f4301452..81ba09b8 100644
--- a/tests/Network/BitTorrent/Exchange/BlockSpec.hs
+++ b/tests/Network/BitTorrent/Exchange/BlockSpec.hs
@@ -4,7 +4,7 @@ import Data.Maybe
 import Test.Hspec
 import Test.QuickCheck
 
-import Network.BitTorrent.Exchange.Block
+import Network.BitTorrent.Exchange.Block as Block
 
 
 instance Arbitrary a => Arbitrary (Block a) where
@@ -14,10 +14,7 @@ instance Arbitrary BlockIx where
   arbitrary = BlockIx <$> arbitrary <*> arbitrary <*> arbitrary
 
 instance Arbitrary Bucket where
-  arbitrary = error "arbitrary: block bucket"
-
-instance Show Bucket where
-  show = error "show: bucket"
+  arbitrary = Block.fromList <$> arbitrary <*> arbitrary
 
 spec :: Spec
 spec = do