From f64e186c60a94223eb4b5a156d986a4c78c025c7 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sun, 30 Jun 2019 06:07:32 +0200 Subject: Move the source code into src/ --- Data/GraphQL/AST/Core.hs | 38 -------------------------------------- 1 file changed, 38 deletions(-) delete mode 100644 Data/GraphQL/AST/Core.hs (limited to 'Data/GraphQL/AST/Core.hs') 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) -- cgit v1.2.3