From 3c1a5c800f382db0ae0c7a74ba3a5a1fdc4c23cb Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Fri, 6 Dec 2019 22:52:24 +0100
Subject: Support directives (skip and include)

Fixes #24.
---
 src/Language/GraphQL/AST/Core.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/Language/GraphQL/AST/Core.hs')

diff --git a/src/Language/GraphQL/AST/Core.hs b/src/Language/GraphQL/AST/Core.hs
index f7a008f..7ba4830 100644
--- a/src/Language/GraphQL/AST/Core.hs
+++ b/src/Language/GraphQL/AST/Core.hs
@@ -2,6 +2,8 @@
 module Language.GraphQL.AST.Core
     ( Alias
     , Argument(..)
+    , Arguments(..)
+    , Directive(..)
     , Document
     , Field(..)
     , Fragment(..)
@@ -39,6 +41,14 @@ data Field
 -- | Single argument.
 data Argument = Argument Name Value deriving (Eq, Show)
 
+-- | Argument list.
+newtype Arguments = Arguments (HashMap Name Value)
+    deriving (Eq, Show)
+
+-- | Directive.
+data Directive = Directive Name Arguments
+    deriving (Eq, Show)
+
 -- | Represents fragments and inline fragments.
 data Fragment
     = Fragment TypeCondition (Seq Selection)
-- 
cgit v1.2.3