summaryrefslogtreecommitdiff
path: root/Data/GraphQL/AST/Core.hs
diff options
context:
space:
mode:
authorEugen Wissner <belka@caraus.de>2019-06-30 06:07:32 +0200
committerEugen Wissner <belka@caraus.de>2019-06-30 06:07:32 +0200
commitf64e186c60a94223eb4b5a156d986a4c78c025c7 (patch)
treeaa3159e86132eacfefec98a9105ad05173c99ae1 /Data/GraphQL/AST/Core.hs
parent28aaa6a70b7d8301cb94e7dc112dc292627f0ef9 (diff)
downloadgraphql-f64e186c60a94223eb4b5a156d986a4c78c025c7.tar.gz
Move the source code into src/
Diffstat (limited to 'Data/GraphQL/AST/Core.hs')
-rw-r--r--Data/GraphQL/AST/Core.hs38
1 files changed, 0 insertions, 38 deletions
diff --git a/Data/GraphQL/AST/Core.hs b/Data/GraphQL/AST/Core.hs
deleted file mode 100644
index f0c617c..0000000
--- a/Data/GraphQL/AST/Core.hs
+++ /dev/null
@@ -1,38 +0,0 @@
--- | This is the AST meant to be executed.
-module Data.GraphQL.AST.Core where
-
-import Data.Int (Int32)
-import Data.List.NonEmpty (NonEmpty)
-import Data.String
-
-import Data.Text (Text)
-
-type Name = Text
-
-type Document = NonEmpty Operation
-
-data Operation = Query (NonEmpty Field)
- | Mutation (NonEmpty Field)
- deriving (Eq,Show)
-
-data Field = Field (Maybe Alias) Name [Argument] [Field] deriving (Eq,Show)
-
-type Alias = Name
-
-data Argument = Argument Name Value deriving (Eq,Show)
-
-data Value = ValueInt Int32
- -- GraphQL Float is double precision
- | ValueFloat Double
- | ValueString Text
- | ValueBoolean Bool
- | ValueNull
- | ValueEnum Name
- | ValueList [Value]
- | ValueObject [ObjectField]
- deriving (Eq,Show)
-
-instance IsString Value where
- fromString = ValueString . fromString
-
-data ObjectField = ObjectField Name Value deriving (Eq,Show)