From 6daae8a5219f62de98b4a65788e436fb1eac8cba Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Fri, 2 Oct 2020 06:31:38 +0200 Subject: Validate directives are in valid locations --- src/Language/GraphQL/Validate/Validation.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (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 0e9f1a8..32a454e 100644 --- a/src/Language/GraphQL/Validate/Validation.hs +++ b/src/Language/GraphQL/Validate/Validation.hs @@ -13,6 +13,7 @@ module Language.GraphQL.Validate.Validation 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 @@ -45,7 +46,7 @@ data Rule m | FragmentSpreadRule (FragmentSpread -> RuleT m) | FieldRule (Maybe (Out.Type m) -> Field -> RuleT m) | ArgumentsRule (Maybe (Out.Type m) -> Field -> RuleT m) (Directive -> RuleT m) - | DirectivesRule ([Directive] -> RuleT m) + | DirectivesRule (DirectiveLocation -> [Directive] -> RuleT m) | VariablesRule ([VariableDefinition] -> RuleT m) | ValueRule (Maybe In.Type -> Value -> RuleT m) (Maybe In.Type -> ConstValue -> RuleT m) -- cgit v1.2.3