From 7c0b0ace4dacbb581669f88b83b9643a83fc797a Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Wed, 7 Oct 2020 05:24:51 +0200 Subject: Collect types once the schema is created --- src/Language/GraphQL/Validate/Validation.hs | 4 ---- 1 file changed, 4 deletions(-) (limited to 'src/Language/GraphQL/Validate/Validation.hs') diff --git a/src/Language/GraphQL/Validate/Validation.hs b/src/Language/GraphQL/Validate/Validation.hs index 7ffab10..0432a1a 100644 --- a/src/Language/GraphQL/Validate/Validation.hs +++ b/src/Language/GraphQL/Validate/Validation.hs @@ -11,14 +11,12 @@ module Language.GraphQL.Validate.Validation ) where import Control.Monad.Trans.Reader (ReaderT) -import Data.HashMap.Strict (HashMap) import Data.Sequence (Seq) import Language.GraphQL.AST.DirectiveLocation (DirectiveLocation(..)) import Language.GraphQL.AST.Document import qualified Language.GraphQL.Type.In as In import qualified Language.GraphQL.Type.Out as Out import Language.GraphQL.Type.Schema (Schema) -import qualified Language.GraphQL.Type.Schema as Schema -- | Validation error. data Error = Error @@ -30,8 +28,6 @@ data Error = Error data Validation m = Validation { ast :: Document , schema :: Schema m - , types :: HashMap Name (Schema.Type m) - , directives :: Schema.Directives } -- | 'Rule' assigns a function to each AST node that can be validated. If the -- cgit v1.2.3