From b7a72591fd08df9df678e5e7db3304b5a2e75ae9 Mon Sep 17 00:00:00 2001 From: Danny Navarro Date: Sun, 12 Feb 2017 15:19:13 -0300 Subject: Support variables in AST transformation --- Data/GraphQL/Schema.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Data/GraphQL/Schema.hs') diff --git a/Data/GraphQL/Schema.hs b/Data/GraphQL/Schema.hs index 548c4eb..4acc4ac 100644 --- a/Data/GraphQL/Schema.hs +++ b/Data/GraphQL/Schema.hs @@ -48,7 +48,7 @@ type Fields = [Field] type Arguments = [Argument] -- | Variable substitution function. -type Subs = Text -> Maybe Text +type Subs = Name -> Maybe Value -- | Create a new 'Resolver' with the given 'Name' from the given 'Resolver's. object :: Alternative f => Name -> Resolvers f -> Resolver f @@ -110,7 +110,6 @@ withField name f (Field alias name' _ _) = where aliasOrName = fromMaybe name alias - -- | Takes a list of 'Resolver's and a list of 'Field's and applies each -- 'Resolver' to each 'Field'. Resolves into a value containing the -- resolved 'Field', or a null value and error information. -- cgit v1.2.3