summaryrefslogtreecommitdiff
path: root/src/Language/GraphQL/AST/Document.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Language/GraphQL/AST/Document.hs')
-rw-r--r--src/Language/GraphQL/AST/Document.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Language/GraphQL/AST/Document.hs b/src/Language/GraphQL/AST/Document.hs
index 131285d..66fc246 100644
--- a/src/Language/GraphQL/AST/Document.hs
+++ b/src/Language/GraphQL/AST/Document.hs
@@ -371,8 +371,8 @@ data NonNullType
deriving Eq
instance Show NonNullType where
- show (NonNullTypeNamed typeName) = '!' : Text.unpack typeName
- show (NonNullTypeList listType) = concat ["![", show listType, "]"]
+ show (NonNullTypeNamed typeName) = Text.unpack $ typeName <> "!"
+ show (NonNullTypeList listType) = concat ["[", show listType, "]!"]
-- ** Directives