diff options
| author | Danny Navarro <j@dannynavarro.net> | 2015-09-18 18:11:11 +0200 |
|---|---|---|
| committer | Danny Navarro <j@dannynavarro.net> | 2015-09-18 18:11:11 +0200 |
| commit | 899fa1b53117e967ec5f201fb24b1fea9944f1f6 (patch) | |
| tree | 53b4e5d4111e50c43ee838857b11b3b96f0f4f39 /Data/GraphQL/AST.hs | |
| parent | cb9977141d2eb9a0bb285f7d56375da9ae6e0db4 (diff) | |
| download | graphql-899fa1b53117e967ec5f201fb24b1fea9944f1f6.tar.gz | |
Handle escaped quotes for GraphQL String Values
This also includes a new type for Value String.
The tests fail now, although it parses successfully. I'll use a pretty
printer in next commit so that it's easier to spot the differences.
Onces this is working I'll add the rest of the escaped characters.
Diffstat (limited to 'Data/GraphQL/AST.hs')
| -rw-r--r-- | Data/GraphQL/AST.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Data/GraphQL/AST.hs b/Data/GraphQL/AST.hs index 7e8c9b5..45bc519 100644 --- a/Data/GraphQL/AST.hs +++ b/Data/GraphQL/AST.hs @@ -66,12 +66,14 @@ data Value = ValueVariable Variable -- GraphQL Float is double precison | ValueFloat Double | ValueBoolean Bool - | ValueString Text + | ValueString StringValue | ValueEnum Name | ValueList ListValue | ValueObject ObjectValue deriving (Eq,Show) +newtype StringValue = StringValue Text deriving (Eq,Show) + newtype ListValue = ListValue [Value] deriving (Eq,Show) newtype ObjectValue = ObjectValue [ObjectField] deriving (Eq,Show) |