diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-12-17 20:42:47 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-12-17 20:42:47 +0100 |
| commit | 5a6709030ceee63adb417c0fa2d2abce24c5d5cb (patch) | |
| tree | dd5c58238b7a0c6652b43c1136e352ab013bb10a /src/Language/GraphQL/AST/Document.hs | |
| parent | 2bcae9e0a7657ddb261328caadc884c57992f304 (diff) | |
| download | graphql-5a6709030ceee63adb417c0fa2d2abce24c5d5cb.tar.gz | |
Add show instances for AST type representation
Diffstat (limited to 'src/Language/GraphQL/AST/Document.hs')
| -rw-r--r-- | src/Language/GraphQL/AST/Document.hs | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/Language/GraphQL/AST/Document.hs b/src/Language/GraphQL/AST/Document.hs index b30271c..a134f35 100644 --- a/src/Language/GraphQL/AST/Document.hs +++ b/src/Language/GraphQL/AST/Document.hs @@ -281,7 +281,12 @@ data Type = TypeNamed Name | TypeList Type | TypeNonNull NonNullType - deriving (Eq, Show) + deriving Eq + +instance Show Type where + show (TypeNamed typeName) = Text.unpack typeName + show (TypeList listType) = concat ["[", show listType, "]"] + show (TypeNonNull nonNullType) = show nonNullType -- | Represents type names. type NamedType = Name @@ -290,7 +295,11 @@ type NamedType = Name data NonNullType = NonNullTypeNamed Name | NonNullTypeList Type - deriving (Eq, Show) + deriving Eq + +instance Show NonNullType where + show (NonNullTypeNamed typeName) = '!' : Text.unpack typeName + show (NonNullTypeList listType) = concat ["![", show listType, "]"] -- ** Directives |