From d2c138f8d16acadb8ae2ba410484d985dde1e37c Mon Sep 17 00:00:00 2001 From: Danny Navarro Date: Sun, 19 Feb 2017 15:29:58 -0300 Subject: Add basic Fragment Support Only field names are supported for now. --- Data/GraphQL/Execute.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Data/GraphQL/Execute.hs') 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 -- cgit v1.2.3