From 840e129c4496b4e8145480d2b3c3cb34f505702e Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sat, 11 Jul 2020 06:34:10 +0200 Subject: Parse subscriptions --- src/Language/GraphQL/Execute/Transform.hs | 3 +++ 1 file changed, 3 insertions(+) (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 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 -- cgit v1.2.3