From 8b164c4844da128dc5119febc3defb1ebdf2cc3a Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Tue, 30 Jun 2020 10:28:10 +0200 Subject: Move Core module out of AST --- src/Language/GraphQL/Execute/Transform.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Language/GraphQL/Execute/Transform.hs') diff --git a/src/Language/GraphQL/Execute/Transform.hs b/src/Language/GraphQL/Execute/Transform.hs index 733ac8c..79ee855 100644 --- a/src/Language/GraphQL/Execute/Transform.hs +++ b/src/Language/GraphQL/Execute/Transform.hs @@ -44,7 +44,6 @@ import Data.Text (Text) import qualified Data.Text as Text import qualified Language.GraphQL.AST as Full import Language.GraphQL.AST (Name) -import Language.GraphQL.AST.Core import qualified Language.GraphQL.Execute.Coerce as Coerce import Language.GraphQL.Type.Directive (Directive(..)) import qualified Language.GraphQL.Type.Directive as Directive @@ -341,7 +340,7 @@ directives :: [Full.Directive] -> State (Replacement m) [Directive] directives = traverse directive where directive (Full.Directive directiveName directiveArguments) - = Directive directiveName . Arguments + = Directive directiveName . Type.Arguments <$> foldM go HashMap.empty directiveArguments go arguments (Full.Argument name value') = do substitutedValue <- value value' -- cgit v1.2.3