diff options
| author | Dmitrii Skurikhin <dmitrii.sk@gmail.com> | 2022-02-11 22:50:53 +0300 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2022-02-16 08:58:16 +0100 |
| commit | 8503c0f288201223776f9962438c577241f08c9d (patch) | |
| tree | 9a1e60a08ea62a6362258bdf15d6a451d4e1155f /src/Language/GraphQL/AST | |
| parent | 05e6aa4c95782e6525f37edb323959da4d65898e (diff) | |
| download | graphql-8503c0f288201223776f9962438c577241f08c9d.tar.gz | |
enhance query errors
Diffstat (limited to 'src/Language/GraphQL/AST')
| -rw-r--r-- | src/Language/GraphQL/AST/Document.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Language/GraphQL/AST/Document.hs b/src/Language/GraphQL/AST/Document.hs index a698d2e..ea640df 100644 --- a/src/Language/GraphQL/AST/Document.hs +++ b/src/Language/GraphQL/AST/Document.hs @@ -49,6 +49,8 @@ module Language.GraphQL.AST.Document , Value(..) , VariableDefinition(..) , escape + , showVariableName + , showVariable ) where import Data.Char (ord) @@ -339,6 +341,12 @@ data VariableDefinition = VariableDefinition Name Type (Maybe (Node ConstValue)) Location deriving (Eq, Show) +showVariableName :: VariableDefinition -> String +showVariableName (VariableDefinition name _ _ _) = "$" <> Text.unpack name + +showVariable :: VariableDefinition -> String +showVariable var@(VariableDefinition _ type' _ _) = showVariableName var <> ":" <> " " <> show type' + -- ** Type References -- | Type representation. |