From 26cc53ce0678d48bf7d5550df65171e6bf5288d2 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Fri, 22 May 2020 10:11:48 +0200 Subject: Reject variables as default values --- src/Language/GraphQL/Type/Definition.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Language/GraphQL/Type') diff --git a/src/Language/GraphQL/Type/Definition.hs b/src/Language/GraphQL/Type/Definition.hs index 5891f71..a916d51 100644 --- a/src/Language/GraphQL/Type/Definition.hs +++ b/src/Language/GraphQL/Type/Definition.hs @@ -193,18 +193,22 @@ pattern ListInputTypeDefinition listType <- , ScalarInputTypeDefinition #-} +-- | Matches either 'ScalarOutputType' or 'NonNullScalarOutputType'. pattern ScalarOutputTypeDefinition :: forall m. ScalarType -> OutputType m pattern ScalarOutputTypeDefinition scalarType <- (isScalarOutputType -> Just scalarType) +-- | Matches either 'EnumOutputType' or 'NonNullEnumOutputType'. pattern EnumOutputTypeDefinition :: forall m. EnumType -> OutputType m pattern EnumOutputTypeDefinition enumType <- (isEnumOutputType -> Just enumType) +-- | Matches either 'ObjectOutputType' or 'NonNullObjectOutputType'. pattern ObjectOutputTypeDefinition :: forall m. ObjectType m -> OutputType m pattern ObjectOutputTypeDefinition objectType <- (isObjectOutputType -> Just objectType) +-- | Matches either 'ListOutputType' or 'NonNullListOutputType'. pattern ListOutputTypeDefinition :: forall m. OutputType m -> OutputType m pattern ListOutputTypeDefinition listType <- (isListOutputType -> Just listType) -- cgit v1.2.3