From 14ed2098285776690bd8fea4209560bf3dba9e74 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Fri, 4 Sep 2020 19:12:19 +0200 Subject: Collect types from the subscription root --- src/Language/GraphQL/Type/Internal.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/Language/GraphQL/Type') 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 -- cgit v1.2.3