From f8d3081122e35c96e291c61ad53c5da6dcda1fb2 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 28 Sep 2013 05:59:08 +0400 Subject: Rename BEncoding to BEncode --- tests/properties.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tests') diff --git a/tests/properties.hs b/tests/properties.hs index 0d49445..586e94d 100644 --- a/tests/properties.hs +++ b/tests/properties.hs @@ -32,7 +32,7 @@ prop_EncDec x = case decode (L.toStrict (encode x)) of data List a = Cons a (List a) | Nil deriving (Show, Eq, Generic) -instance BEncodable a => BEncodable (List a) +instance BEncode a => BEncode (List a) instance Arbitrary a => Arbitrary (List a) where arbitrary = frequency @@ -46,14 +46,14 @@ data FileInfo = FileInfo , fiMD5Sum :: B.ByteString } deriving (Show, Eq, Generic) -instance BEncodable FileInfo +instance BEncode FileInfo instance Arbitrary FileInfo where arbitrary = FileInfo <$> arbitrary <*> arbitrary <*> arbitrary data T a = T -prop_bencodable :: Eq a => BEncodable a => T a -> a -> Bool +prop_bencodable :: Eq a => BEncode a => T a -> a -> Bool prop_bencodable _ x = decoded (L.toStrict (encoded x)) == Right x -- All tests are (encode >>> decode = id) -- cgit v1.2.3