From 7e78f98f090168fe8b315a5e9438e635afdf93a4 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Fri, 28 Aug 2020 08:32:21 +0200
Subject: Validate fragment name uniqueness

---
 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 2b5365a..03bbf33 100644
--- a/src/Language/GraphQL/Validate/Validation.hs
+++ b/src/Language/GraphQL/Validate/Validation.hs
@@ -48,6 +48,7 @@ data Validation m = Validation
 data Rule m
     = DefinitionRule (Definition -> RuleT m)
     | OperationDefinitionRule (OperationDefinition -> RuleT m)
+    | FragmentDefinitionRule (FragmentDefinition -> RuleT m)
 
 -- | Monad transformer used by the rules.
 type RuleT m = ReaderT (Validation m) Maybe Error
-- 
cgit v1.2.3