diff options
| author | Eugen Wissner <belka@caraus.de> | 2019-12-06 22:52:24 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2019-12-06 22:52:24 +0100 |
| commit | 3c1a5c800f382db0ae0c7a74ba3a5a1fdc4c23cb (patch) | |
| tree | 8413676ca83e352a0dec021a1247bdae299d9d34 /src/Language/GraphQL/AST/Core.hs | |
| parent | fc9ad9c4a1e2e79a6b93d2599ca8fa6770caf631 (diff) | |
| download | graphql-3c1a5c800f382db0ae0c7a74ba3a5a1fdc4c23cb.tar.gz | |
Support directives (skip and include)
Fixes #24.
Diffstat (limited to 'src/Language/GraphQL/AST/Core.hs')
| -rw-r--r-- | src/Language/GraphQL/AST/Core.hs | 10 |
1 files changed, 10 insertions, 0 deletions
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) |