aeson-compat 0.3.5.1 → 0.3.5.2
raw patch · 3 files changed
+29/−24 lines, 3 filesdep ~QuickCheckPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: QuickCheck
API changes (from Hackage documentation)
- Data.Aeson.Compat: (.=) :: (KeyValue kv, ToJSON v) => Text -> v -> kv
+ Data.Aeson.Compat: (.=) :: ToJSON v => Text -> v -> kv
- Data.Aeson.Compat: gParseJSON :: GFromJSON arity f => Options -> FromArgs arity a -> Value -> Parser (f a)
+ Data.Aeson.Compat: gParseJSON :: Options -> FromArgs arity a -> Value -> Parser (f a)
- Data.Aeson.Compat: gToEncoding :: GToEncoding arity f => Options -> ToArgs Encoding arity a -> f a -> Encoding
+ Data.Aeson.Compat: gToEncoding :: Options -> ToArgs Encoding arity a -> f a -> Encoding
- Data.Aeson.Compat: gToJSON :: GToJSON arity f => Options -> ToArgs Value arity a -> f a -> Value
+ Data.Aeson.Compat: gToJSON :: Options -> ToArgs Value arity a -> f a -> Value
- Data.Aeson.Compat: parseJSON :: FromJSON a => Value -> Parser a
+ Data.Aeson.Compat: parseJSON :: Value -> Parser a
- Data.Aeson.Compat: parseJSONList :: FromJSON a => Value -> Parser [a]
+ Data.Aeson.Compat: parseJSONList :: Value -> Parser [a]
- Data.Aeson.Compat: toEncoding :: ToJSON a => a -> Encoding
+ Data.Aeson.Compat: toEncoding :: a -> Encoding
- Data.Aeson.Compat: toEncodingList :: ToJSON a => [a] -> Encoding
+ Data.Aeson.Compat: toEncodingList :: [a] -> Encoding
- Data.Aeson.Compat: toJSON :: ToJSON a => a -> Value
+ Data.Aeson.Compat: toJSON :: a -> Value
- Data.Aeson.Compat: toJSONList :: ToJSON a => [a] -> Value
+ Data.Aeson.Compat: toJSONList :: [a] -> Value
Files
- CHANGELOG.md +5/−1
- aeson-compat.cabal +4/−4
- test/Orphans.hs +20/−19
CHANGELOG.md view
@@ -1,4 +1,8 @@-# 0.3.5.1.+# 0.3.5.2++- Support QuickCheck-2.9.1++# 0.3.5.1 - Fix `(.=)` export regression introduced by 0.3.5.0
aeson-compat.cabal view
@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack name: aeson-compat-version: 0.3.5.1+version: 0.3.5.2 synopsis: Compatibility layer for aeson description: Compatibility layer for @aeson@ category: Web@@ -32,7 +32,7 @@ build-depends: base >=4.6 && <4.10 , base-compat >=0.6.0 && <0.10- , aeson >=0.7.0.6 && <0.11.3+ , aeson >=0.7.0.6 && <1.1 , attoparsec >=0.12 && <0.14 , bytestring >=0.10 && <0.11 , containers >=0.5 && <0.6@@ -62,7 +62,7 @@ build-depends: base >=4.6 && <4.10 , base-compat >=0.6.0 && <0.10- , aeson >=0.7.0.6 && <0.11.3+ , aeson >=0.7.0.6 && <1.1 , attoparsec >=0.12 && <0.14 , bytestring >=0.10 && <0.11 , containers >=0.5 && <0.6@@ -82,7 +82,7 @@ , tasty >=0.10 && <0.12 , tasty-hunit >=0.9 && <0.10 , tasty-quickcheck >=0.8 && <0.9- , QuickCheck >=2.7.6 && <2.8.3+ , QuickCheck >=2.7.6 && <2.9.2 , quickcheck-instances >=0.3 && <0.3.13 other-modules: Orphans
test/Orphans.hs view
@@ -5,7 +5,6 @@ import Prelude () import Prelude.Compat -import Data.Version (Version (..)) import Test.Tasty.QuickCheck import Data.Orphans ()@@ -15,16 +14,18 @@ import Data.Vector as V #endif -#if !MIN_VERSION_QuickCheck(2,8,3)+#if !(MIN_VERSION_QuickCheck(2,8,0) && MIN_VERSION_base(4,8,0)) && !(MIN_VERSION_QuickCheck(2,9,0))+import Numeric.Natural (Natural)+#endif++#if !MIN_VERSION_QuickCheck(2,9,0) import Control.Applicative (Const (..)) import Data.List.NonEmpty (NonEmpty (..))-import Data.Proxy (Proxy (..))-import Data.Tagged (Tagged (..))+import Data.Version (Version (..)) #endif -#if !(MIN_VERSION_QuickCheck(2,8,0) && MIN_VERSION_base(4,8,0))-import Numeric.Natural (Natural)-#endif+import Data.Proxy (Proxy (..))+import Data.Tagged (Tagged (..)) #if !MIN_VERSION_quickcheck_instances(0,3,12) instance Arbitrary a => Arbitrary (Vector a) where@@ -32,30 +33,30 @@ shrink = fmap V.fromList . shrink . V.toList #endif -#if !(MIN_VERSION_QuickCheck(2,8,0) && MIN_VERSION_base(4,8,0))+#if !(MIN_VERSION_QuickCheck(2,8,0) && MIN_VERSION_base(4,8,0)) && !(MIN_VERSION_QuickCheck(2,9,0)) instance Arbitrary Natural where arbitrary = fmap (fromInteger . abs) arbitrary #endif -instance Arbitrary Version where- arbitrary = do- x <- fmap abs arbitrary- xs <- (fmap . fmap) abs arbitrary- return $ Version (x : xs) []--#if !MIN_VERSION_QuickCheck(2,8,3)+#if !MIN_VERSION_QuickCheck(2,9,0) instance Arbitrary a => Arbitrary (NonEmpty a) where arbitrary = do x <- arbitrary xs <- arbitrary return (x :| xs) -instance Arbitrary a => Arbitrary (Tagged t a) where- arbitrary = fmap Tagged arbitrary- instance Arbitrary a => Arbitrary (Const a b) where arbitrary = fmap Const arbitrary +instance Arbitrary Version where+ arbitrary = do+ x <- fmap abs arbitrary+ xs <- (fmap . fmap) abs arbitrary+ return $ Version (x : xs) []+#endif++instance Arbitrary a => Arbitrary (Tagged t a) where+ arbitrary = fmap Tagged arbitrary+ instance Arbitrary (Proxy a) where arbitrary = return Proxy-#endif