diff options
| author | Danny Navarro <j@dannynavarro.net> | 2017-02-19 15:29:58 -0300 |
|---|---|---|
| committer | Danny Navarro <j@dannynavarro.net> | 2017-02-23 15:29:58 -0300 |
| commit | d2c138f8d16acadb8ae2ba410484d985dde1e37c (patch) | |
| tree | 19e51376737f5197922e93c1b4539a10377f5f81 /Data/GraphQL/Execute.hs | |
| parent | 39731ff2338d74bfabf9863fb5921e8f255858dd (diff) | |
| download | graphql-d2c138f8d16acadb8ae2ba410484d985dde1e37c.tar.gz | |
Add basic Fragment Support
Only field names are supported for now.
Diffstat (limited to 'Data/GraphQL/Execute.hs')
| -rw-r--r-- | Data/GraphQL/Execute.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Data/GraphQL/Execute.hs b/Data/GraphQL/Execute.hs index fe78323..7609561 100644 --- a/Data/GraphQL/Execute.hs +++ b/Data/GraphQL/Execute.hs @@ -28,7 +28,7 @@ execute execute schema subs doc = document schema =<< maybe empty pure (Transform.document subs doc) document :: Alternative f => Schema f -> AST.Core.Document -> f Aeson.Value -document schema (op :| [])= operation schema op +document schema (op :| []) = operation schema op document _ _ = error "Multiple operations not supported yet" operation :: Alternative f => Schema f -> AST.Core.Operation -> f Aeson.Value |