@@ -22,6 +22,9 @@
22-- Validate JSON values with Swagger Schema.
22-- Validate JSON values with Swagger Schema.
23module Data.Swagger.Internal.Schema.Validation where
23module Data.Swagger.Internal.Schema.Validation where
25import Control.Applicative
28import Control.Applicative
26import Control.Lens
29import Control.Lens
27import Control.Monad (when)
30import Control.Monad (when)
@@ -34,8 +37,6 @@ import Data.HashMap.Strict (HashMap)
34import qualified Data.HashMap.Strict as HashMap
37import qualified Data.HashMap.Strict as HashMap
35import qualified Data.HashMap.Strict.InsOrd as InsOrdHashMap
38import qualified Data.HashMap.Strict.InsOrd as InsOrdHashMap
36import qualified "unordered-containers" Data.HashSet as HashSet
39import qualified "unordered-containers" Data.HashSet as HashSet
37−import Data.List (intercalate)
39import Data.Proxy
40import Data.Proxy
40import Data.Scientific (Scientific, isInteger)
41import Data.Scientific (Scientific, isInteger)
41import Data.Text (Text)
42import Data.Text (Text)