Merge pull request #230 from ysangkok/master

Aeson 2.0.3 compatibility
GetShopTV · Feb 3, 2022 · 13f0a51 · 13f0a51
2 parents c08d9ef + d3f67b7
commit 13f0a51
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/test/Data/Swagger/Schema/ValidationSpec.hs b/test/Data/Swagger/Schema/ValidationSpec.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP                 #-}
 {-# LANGUAGE DeriveGeneric       #-}
 {-# LANGUAGE PackageImports      #-}
 {-# LANGUAGE RecordWildCards     #-}
@@ -268,6 +269,7 @@ instance Eq ZonedTime where
 -- Arbitrary instance for Data.Aeson.Value
 -- ========================================================================
 
+#if !MIN_VERSION_aeson(2,0,3)
 instance Arbitrary Value where
   -- Weights are almost random
   -- Uniform oneof tends not to build complex objects cause of recursive call.
@@ -281,3 +283,4 @@ instance Arbitrary Value where
 
 instance Arbitrary (KM.KeyMap Value) where
   arbitrary = KM.fromHashMapText <$> arbitrary
+#endif