From a034f2ce4d6603b030e653b4a4a2c46098ce8880 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 3 Feb 2021 05:42:10 +0100
Subject: Validate values

---
 src/Language/GraphQL/AST/Document.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Language/GraphQL/AST')

diff --git a/src/Language/GraphQL/AST/Document.hs b/src/Language/GraphQL/AST/Document.hs
index a134f35..a65a01d 100644
--- a/src/Language/GraphQL/AST/Document.hs
+++ b/src/Language/GraphQL/AST/Document.hs
@@ -252,6 +252,9 @@ data ObjectField a = ObjectField
     , location :: Location
     } deriving (Eq, Show)
 
+instance Functor ObjectField where
+    fmap f ObjectField{..} = ObjectField name (f <$> value) location
+
 -- ** Variables
 
 -- | Variable definition.
-- 
cgit v1.2.3