1 files changed, 1 insertions, 1 deletions

diff --git a/tests/properties.hs b/tests/properties.hs
index 586e94d..3d08eed 100644
--- a/tests/properties.hs
+++ b/tests/properties.hs
@@ -54,7 +54,7 @@ instance Arbitrary FileInfo where
 data T a = T
 
 prop_bencodable :: Eq a => BEncode a => T a -> a -> Bool
-prop_bencodable _ x = decoded (L.toStrict (encoded x)) == Right x
+prop_bencodable _ x = decode (L.toStrict (encode x)) == Right x
 
 -- All tests are (encode >>> decode = id)
 main :: IO ()