diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-09-30 05:14:52 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-09-30 05:14:52 +0200 |
| commit | 56b63f1c3eda70e6de5da4b6395b98a378b1e4e7 (patch) | |
| tree | e6815d9e5ab30f9639f69840832a2effa9f3bcdc /src/Language/GraphQL/Validate/Validation.hs | |
| parent | 466416d4b00ab48aaab36eea9623a8aaad366fa8 (diff) | |
| download | graphql-56b63f1c3eda70e6de5da4b6395b98a378b1e4e7.tar.gz | |
Validate input object field names
Diffstat (limited to 'src/Language/GraphQL/Validate/Validation.hs')
| -rw-r--r-- | src/Language/GraphQL/Validate/Validation.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Language/GraphQL/Validate/Validation.hs b/src/Language/GraphQL/Validate/Validation.hs index ae39e58..0e9f1a8 100644 --- a/src/Language/GraphQL/Validate/Validation.hs +++ b/src/Language/GraphQL/Validate/Validation.hs @@ -14,6 +14,7 @@ import Control.Monad.Trans.Reader (ReaderT) import Data.HashMap.Strict (HashMap) import Data.Sequence (Seq) 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 @@ -46,7 +47,7 @@ data Rule m | ArgumentsRule (Maybe (Out.Type m) -> Field -> RuleT m) (Directive -> RuleT m) | DirectivesRule ([Directive] -> RuleT m) | VariablesRule ([VariableDefinition] -> RuleT m) - | ValueRule (Value -> RuleT m) (ConstValue -> RuleT m) + | ValueRule (Maybe In.Type -> Value -> RuleT m) (Maybe In.Type -> ConstValue -> RuleT m) -- | Monad transformer used by the rules. type RuleT m = ReaderT (Validation m) Seq Error |