@@ -301,6 +301,8 @@ instance Eq ZonedTime where
301-- Arbitrary instance for Data.Aeson.Value
301-- Arbitrary instance for Data.Aeson.Value
302-- ========================================================================
302-- ========================================================================
304+-- These instances were introduces in aeson upstream in 2.0.3
305+#if !MIN_VERSION_aeson(2,0,3)
304instance Arbitrary Value where
306instance Arbitrary Value where
305 -- Weights are almost random
307 -- Weights are almost random
306 -- Uniform oneof tends not to build complex objects cause of recursive call.
308 -- Uniform oneof tends not to build complex objects cause of recursive call.
@@ -319,3 +321,4 @@ instance Arbitrary v => Arbitrary (KeyMap.KeyMap v) where
319instance Arbitrary Key.Key where
321instance Arbitrary Key.Key where
320 arbitrary = Key.fromText <$> arbitrary
322 arbitrary = Key.fromText <$> arbitrary