From 51fecc396f8c7ccd3f91125d5fbac040051915c6 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 28 Sep 2013 05:39:46 +0400 Subject: Rename BEncode to BValue --- tests/properties.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests') diff --git a/tests/properties.hs b/tests/properties.hs index 12f3dfc..0d49445 100644 --- a/tests/properties.hs +++ b/tests/properties.hs @@ -16,7 +16,7 @@ import Data.BEncode instance Arbitrary B.ByteString where arbitrary = fmap B.pack arbitrary -instance Arbitrary BEncode where +instance Arbitrary BValue where arbitrary = frequency [ (50, BInteger <$> arbitrary) , (40, BString <$> arbitrary) @@ -24,7 +24,7 @@ instance Arbitrary BEncode where ] -prop_EncDec :: BEncode -> Bool +prop_EncDec :: BValue -> Bool prop_EncDec x = case decode (L.toStrict (encode x)) of Left _ -> False Right x' -> x == x' -- cgit v1.2.3