on 4ac6472 help sign in
2 files changed+9−8
since splitsnapshots
unifiedsplit
aeson.cabal+4−5 tests/Instances.hs+5−3
aeson.cabal+4−5
@@ -1,5 +1,5 @@
11name: aeson
2−version: 0.11.2.0
2+version: 0.11.2.1
33license: BSD3
44license-file: LICENSE
55category: Text, Web, JSON
@@ -113,7 +113,7 @@ library
113113
114114 if !impl(ghc >= 7.10)
115115 -- `Numeric.Natural` is available in base only since GHC 7.10 / base 4.8
116− build-depends: nats >=1 && <1.1
116+ build-depends: nats >=1 && <1.2
117117
118118 if flag(old-locale)
119119 build-depends: time < 1.5, old-locale
@@ -121,7 +121,6 @@ library
121121 build-depends: time >= 1.5
122122
123123 if flag(developer)
124− ghc-options: -Werror
125124 ghc-prof-options: -auto-all
126125
127126 ghc-options: -O2 -Wall
@@ -150,7 +149,7 @@ test-suite tests
150149
151150 build-depends:
152151 HUnit,
153− QuickCheck >= 2.7 && <2.8.3,
152+ QuickCheck >= 2.7 && <2.10,
154153 aeson,
155154 attoparsec,
156155 base,
@@ -179,7 +178,7 @@ test-suite tests
179178 build-depends: time >= 1.5
180179
181180 if !impl(ghc >= 7.10)
182− build-depends: nats >=1 && <1.1
181+ build-depends: nats >=1 && <1.2
183182
184183source-repository head
185184 type: git
tests/Instances.hs+5−3
@@ -142,12 +142,17 @@ instance ApproxEq Char where
142142instance (ApproxEq a) => ApproxEq [a] where
143143 a =~ b = length a == length b && all (uncurry (=~)) (zip a b)
144144
145+#if !MIN_VERSION_QuickCheck(2,9,0)
145146instance Arbitrary Version where
146147 arbitrary = makeVersion . fmap getNonNegative <$> resize 4 (listOf1 arbitrary)
147148
148149instance Arbitrary a => Arbitrary (NonEmpty a) where
149150 arbitrary = (:|) <$> arbitrary <*> arbitrary
150151
152+instance Arbitrary a => Arbitrary (Const a b) where
153+ arbitrary = Const <$> arbitrary
154+#endif
155+
151156-- Version tags are deprecated, so we avoid using them in the Arbitrary
152157-- instance. However, the recommended constructor 'makeVersion' is not
153158-- exported by "Data.Version" until base-4.8.0.0. For previous versions,
@@ -168,6 +173,3 @@ instance Arbitrary (Proxy a) where
168173
169174instance Arbitrary b => Arbitrary (Tagged a b) where
170175 arbitrary = Tagged <$> arbitrary
171−
172−instance Arbitrary a => Arbitrary (Const a b) where
173− arbitrary = Const <$> arbitrary