From c2c57b636392ae67a118ce5be04ad8f4b1304ed5 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Wed, 9 Sep 2020 17:04:31 +0200 Subject: Validate all fragments are used --- src/Language/GraphQL/Validate/Validation.hs | 1 + 1 file changed, 1 insertion(+) (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 fb04b76..a513467 100644 --- a/src/Language/GraphQL/Validate/Validation.hs +++ b/src/Language/GraphQL/Validate/Validation.hs @@ -52,6 +52,7 @@ data Rule m | SelectionRule (Selection -> RuleT m) | FragmentRule (FragmentDefinition -> RuleT m) (InlineFragment -> RuleT m) | FragmentSpreadRule (FragmentSpread -> RuleT m) + | FieldRule (Field -> RuleT m) -- | Monad transformer used by the rules. type RuleT m = ReaderT (Validation m) Maybe Error -- cgit v1.2.3