@@ -1,6 +1,7 @@
11{-# LANGUAGE CPP #-}
22{-# LANGUAGE DeriveGeneric #-}
33{-# LANGUAGE PackageImports #-}
4+{-# OPTIONS_GHC -fno-warn-orphans #-}
45module Data.Swagger.Schema.ValidationSpec where
56
67import Control.Applicative
@@ -8,29 +9,22 @@ import Data.Aeson
89import Data.Aeson.Types
910import Data.Int
1011import Data.IntMap (IntMap)
11−import qualified Data.IntMap as IntMap
12−import Data.IntSet (IntSet)
1312import Data.Hashable (Hashable)
1413import "unordered-containers" Data.HashSet (HashSet)
1514import qualified "unordered-containers" Data.HashSet as HashSet
1615import Data.HashMap.Strict (HashMap)
1716import qualified Data.HashMap.Strict as HashMap
1817import Data.Map (Map)
19−import qualified Data.Map as Map
2018import Data.Proxy
2119import Data.Time
2220import qualified Data.Text as T
2321import qualified Data.Text.Lazy as TL
2422import Data.Set (Set)
25−import qualified Data.Set as Set
2623import Data.Word
2724import GHC.Generics
2825
2926import Data.Swagger
30−import Data.Swagger.Declare
31−import Data.Swagger.Schema.Validation
3227
33−import SpecCommon
3428import Test.Hspec
3529import Test.Hspec.QuickCheck
3630import Test.QuickCheck
@@ -168,18 +162,6 @@ instance Arbitrary Light where
168162
169163-- Arbitrary instances for common types
170164
171−#if MIN_VERSION_QuickCheck(2,8,2)
172−#else
173−instance (Ord k, Arbitrary k, Arbitrary v) => Arbitrary (Map k v) where
174− arbitrary = Map.fromList <$> arbitrary
175−
176−instance Arbitrary a => Arbitrary (IntMap a) where
177− arbitrary = IntMap.fromList <$> arbitrary
178−
179−instance (Ord a, Arbitrary a) => Arbitrary (Set a) where
180− arbitrary = Set.fromList <$> arbitrary
181−#endif
182−
183165instance (Eq k, Hashable k, Arbitrary k, Arbitrary v) => Arbitrary (HashMap k v) where
184166 arbitrary = HashMap.fromList <$> arbitrary
185167