summaryrefslogtreecommitdiff
path: root/src/Language/GraphQL/Execute/Transform.hs
diff options
context:
space:
mode:
authorEugen Wissner <belka@caraus.de>2020-06-30 10:28:10 +0200
committerEugen Wissner <belka@caraus.de>2020-06-30 10:28:10 +0200
commit8b164c4844da128dc5119febc3defb1ebdf2cc3a (patch)
tree7c8e297c535f400c185a7b281811410ad94dc982 /src/Language/GraphQL/Execute/Transform.hs
parent705e506c13b6c0f67ddf0195fa0d3256e7e4f9c3 (diff)
downloadgraphql-8b164c4844da128dc5119febc3defb1ebdf2cc3a.tar.gz
Move Core module out of AST
Diffstat (limited to 'src/Language/GraphQL/Execute/Transform.hs')
-rw-r--r--src/Language/GraphQL/Execute/Transform.hs3
1 files changed, 1 insertions, 2 deletions
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'