diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-08-16 09:34:41 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-08-16 09:34:41 +0400 |
| commit | 117f02a8e1dcda839e700d92e323a418c15522f5 (patch) | |
| tree | c7714e2c3873fe8d16262f07a104ba03b021d59e /tests/Main.hs | |
| parent | 9e7048216351f81b8d5c8c8e66b76b862ac9622f (diff) | |
~ Fix some warnings.
Diffstat (limited to 'tests/Main.hs')
| -rw-r--r-- | tests/Main.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/tests/Main.hs b/tests/Main.hs index a968c487..fb69565d 100644 --- a/tests/Main.hs +++ b/tests/Main.hs | |||
| @@ -52,11 +52,6 @@ prop_properBEncode _ expected = actual == Right expected | |||
| 52 | where | 52 | where |
| 53 | actual = decoded $ Lazy.toStrict $ encoded expected | 53 | actual = decoded $ Lazy.toStrict $ encoded expected |
| 54 | 54 | ||
| 55 | prop_properJSON :: (FromJSON a, ToJSON a) => Eq a => T a -> a -> Bool | ||
| 56 | prop_properJSON _ expected = actual == Just expected | ||
| 57 | where | ||
| 58 | actual = JSON.decode $ JSON.encode expected | ||
| 59 | |||
| 60 | instance Arbitrary URI where | 55 | instance Arbitrary URI where |
| 61 | arbitrary = pure $ fromJust | 56 | arbitrary = pure $ fromJust |
| 62 | $ parseURI "http://exsample.com:80/123365_asd" | 57 | $ parseURI "http://exsample.com:80/123365_asd" |