From ff004146437723fb565cf693e71c50b35aa96abf Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sun, 2 Mar 2014 16:55:14 +0400 Subject: Fix build failure --- tests/Network/BitTorrent/Exchange/BlockSpec.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'tests') 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 -- cgit v1.2.3