diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-09-04 19:12:19 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-09-04 19:12:19 +0200 |
| commit | 14ed2098285776690bd8fea4209560bf3dba9e74 (patch) | |
| tree | a325eb2aeb0cedd9f8988cc3bfd257091939068c /src/Language/GraphQL/Type | |
| parent | 33318a3b01d27771c6d51ddc5899162bf3acebd8 (diff) | |
| download | graphql-14ed2098285776690bd8fea4209560bf3dba9e74.tar.gz | |
Collect types from the subscription root
Diffstat (limited to 'src/Language/GraphQL/Type')
| -rw-r--r-- | src/Language/GraphQL/Type/Internal.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Language/GraphQL/Type/Internal.hs b/src/Language/GraphQL/Type/Internal.hs index 6f25777..364a7b1 100644 --- a/src/Language/GraphQL/Type/Internal.hs +++ b/src/Language/GraphQL/Type/Internal.hs @@ -38,7 +38,10 @@ data AbstractType m collectReferencedTypes :: forall m. Schema m -> HashMap Name (Type m) collectReferencedTypes schema = let queryTypes = traverseObjectType (query schema) HashMap.empty - in maybe queryTypes (`traverseObjectType` queryTypes) $ mutation schema + mutationTypes = maybe queryTypes (`traverseObjectType` queryTypes) + $ mutation schema + in maybe mutationTypes (`traverseObjectType` queryTypes) + $ subscription schema where collect traverser typeName element foundTypes | HashMap.member typeName foundTypes = foundTypes |