diff options
| author | Danny Navarro <j@dannynavarro.net> | 2017-02-12 15:19:13 -0300 |
|---|---|---|
| committer | Danny Navarro <j@dannynavarro.net> | 2017-02-13 15:19:13 -0300 |
| commit | b7a72591fd08df9df678e5e7db3304b5a2e75ae9 (patch) | |
| tree | 5ba38201af492ec69e5467f4ed00bed88a3a1b09 /Data/GraphQL/AST/Core.hs | |
| parent | e716bc57e786e1d9b733c3a2782fdf27007b3e23 (diff) | |
| download | graphql-b7a72591fd08df9df678e5e7db3304b5a2e75ae9.tar.gz | |
Support variables in AST transformation
Diffstat (limited to 'Data/GraphQL/AST/Core.hs')
| -rw-r--r-- | Data/GraphQL/AST/Core.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Data/GraphQL/AST/Core.hs b/Data/GraphQL/AST/Core.hs index 3424d20..f0c617c 100644 --- a/Data/GraphQL/AST/Core.hs +++ b/Data/GraphQL/AST/Core.hs @@ -3,6 +3,7 @@ module Data.GraphQL.AST.Core where import Data.Int (Int32) import Data.List.NonEmpty (NonEmpty) +import Data.String import Data.Text (Text) @@ -31,4 +32,7 @@ data Value = ValueInt Int32 | ValueObject [ObjectField] deriving (Eq,Show) +instance IsString Value where + fromString = ValueString . fromString + data ObjectField = ObjectField Name Value deriving (Eq,Show) |