diff options
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 |