diff options
| author | Eugen Wissner <belka@caraus.de> | 2019-12-28 07:07:58 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2019-12-28 07:07:58 +0100 |
| commit | fdf5914626ad172a8a459696f0114ef990c0d5cb (patch) | |
| tree | d336c133d8ea7929a99b5e2e5bfedaa84d7dd6b2 /src/Language/GraphQL/Execute/Transform.hs | |
| parent | 78ee76f9d5bd59e6fe97dfb39ca690a473b256b1 (diff) | |
| download | graphql-fdf5914626ad172a8a459696f0114ef990c0d5cb.tar.gz | |
Move AST to AST.Document
Diffstat (limited to 'src/Language/GraphQL/Execute/Transform.hs')
| -rw-r--r-- | src/Language/GraphQL/Execute/Transform.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Language/GraphQL/Execute/Transform.hs b/src/Language/GraphQL/Execute/Transform.hs index 28b9481..7c2e100 100644 --- a/src/Language/GraphQL/Execute/Transform.hs +++ b/src/Language/GraphQL/Execute/Transform.hs @@ -58,13 +58,13 @@ operations operations' = do lift . lift $ NonEmpty.nonEmpty coreOperations operation :: Full.OperationDefinition -> TransformT Core.Operation -operation (Full.OperationSelectionSet sels) = - operation $ Full.OperationDefinition Full.Query mempty mempty mempty sels +operation (Full.SelectionSet sels) + = operation $ Full.OperationDefinition Full.Query mempty mempty mempty sels -- TODO: Validate Variable definitions with substituter -operation (Full.OperationDefinition Full.Query name _vars _dirs sels) = - Core.Query name <$> appendSelection sels -operation (Full.OperationDefinition Full.Mutation name _vars _dirs sels) = - Core.Mutation name <$> appendSelection sels +operation (Full.OperationDefinition Full.Query name _vars _dirs sels) + = Core.Query name <$> appendSelection sels +operation (Full.OperationDefinition Full.Mutation name _vars _dirs sels) + = Core.Mutation name <$> appendSelection sels -- * Selection |