Rename BEncode to BValue

1 files changed, 2 insertions, 2 deletions

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'