diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-29 08:37:41 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-29 08:37:41 +0400 |
| commit | aec496291de09c0387d51a3ee1fbdb5927b19c15 (patch) | |
| tree | 85895e2182431b97cac41fe221798d93c63ffec9 /tests | |
| parent | bb73c6aa23a05ad55432b869649c89e9eb656d6c (diff) | |
Rename decode and encode to mimic Binary package
This lead to more intuitive API.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/properties.hs | 2 |
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 | |||
| 54 | data T a = T | 54 | data T a = T |
| 55 | 55 | ||
| 56 | prop_bencodable :: Eq a => BEncode a => T a -> a -> Bool | 56 | prop_bencodable :: Eq a => BEncode a => T a -> a -> Bool |
| 57 | prop_bencodable _ x = decoded (L.toStrict (encoded x)) == Right x | 57 | prop_bencodable _ x = decode (L.toStrict (encode x)) == Right x |
| 58 | 58 | ||
| 59 | -- All tests are (encode >>> decode = id) | 59 | -- All tests are (encode >>> decode = id) |
| 60 | main :: IO () | 60 | main :: IO () |