summaryrefslogtreecommitdiff
path: root/src/Language/GraphQL/Execute/Transform.hs
diff options
context:
space:
mode:
authorEugen Wissner <belka@caraus.de>2020-07-11 06:34:10 +0200
committerEugen Wissner <belka@caraus.de>2020-07-11 06:34:10 +0200
commit840e129c4496b4e8145480d2b3c3cb34f505702e (patch)
tree0b79c0f8045d93505d8285ebff327000a6926168 /src/Language/GraphQL/Execute/Transform.hs
parent04a58be3f86ced396eed26f90643e7c88e7f2b4d (diff)
downloadgraphql-840e129c4496b4e8145480d2b3c3cb34f505702e.tar.gz
Parse subscriptions
Diffstat (limited to 'src/Language/GraphQL/Execute/Transform.hs')
-rw-r--r--src/Language/GraphQL/Execute/Transform.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Language/GraphQL/Execute/Transform.hs b/src/Language/GraphQL/Execute/Transform.hs
index 30d5130..086af5c 100644
--- a/src/Language/GraphQL/Execute/Transform.hs
+++ b/src/Language/GraphQL/Execute/Transform.hs
@@ -77,6 +77,7 @@ data Selection m
data Operation m
= Query (Maybe Text) (Seq (Selection m))
| Mutation (Maybe Text) (Seq (Selection m))
+ | Subscription (Maybe Text) (Seq (Selection m))
-- | Single GraphQL field.
data Field m = Field
@@ -275,6 +276,8 @@ operation operationDefinition replacement
Query name <$> appendSelection sels
transform (OperationDefinition Full.Mutation name _ _ sels) =
Mutation name <$> appendSelection sels
+ transform (OperationDefinition Full.Subscription name _ _ sels) =
+ Subscription name <$> appendSelection sels
-- * Selection