diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-07-24 21:34:31 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-07-24 21:34:31 +0200 |
| commit | adeba459a20e3fa2e74d98ae7219ef3ed41e7883 (patch) | |
| tree | 64dd430aed053b3cb060686ab82781cf713b60f5 /src/Language/GraphQL/Validate/Rules.hs | |
| parent | 44d506d4b57e450480cf9c476bd927a43ad9c25d (diff) | |
| download | graphql-0.9.0.0.tar.gz | |
Release 0.9.0.0v0.9.0.0
Diffstat (limited to 'src/Language/GraphQL/Validate/Rules.hs')
| -rw-r--r-- | src/Language/GraphQL/Validate/Rules.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Language/GraphQL/Validate/Rules.hs b/src/Language/GraphQL/Validate/Rules.hs index bc754c2..a3314e7 100644 --- a/src/Language/GraphQL/Validate/Rules.hs +++ b/src/Language/GraphQL/Validate/Rules.hs @@ -2,6 +2,7 @@ v. 2.0. If a copy of the MPL was not distributed with this file, You can obtain one at https://mozilla.org/MPL/2.0/. -} +-- | This module contains default rules defined in the GraphQL specification. module Language.GraphQL.Validate.Rules ( Rule(..) , executableDefinitionsRule @@ -10,14 +11,19 @@ module Language.GraphQL.Validate.Rules import Language.GraphQL.AST.Document +-- | 'Rule' assigns a function to each AST node that can be validated. If the +-- validation fails, the function should return an error message, or 'Nothing' +-- otherwise. newtype Rule = DefinitionRule (Definition -> Maybe String) +-- | Default reules given in the specification. specifiedRules :: [Rule] specifiedRules = [ executableDefinitionsRule ] +-- | Definition must be OperationDefinition or FragmentDefinition. executableDefinitionsRule :: Rule executableDefinitionsRule = DefinitionRule go where |