diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-07-10 08:43:47 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-07-10 08:43:47 +0200 |
| commit | 04a58be3f86ced396eed26f90643e7c88e7f2b4d (patch) | |
| tree | 10bfeac6558586c62454931a39cf1338d18bc745 /src/Language/GraphQL/AST/Lexer.hs | |
| parent | 28781586a5ecf31630730ef0d8dbdbfe6041e7d3 (diff) | |
| download | graphql-04a58be3f86ced396eed26f90643e7c88e7f2b4d.tar.gz | |
Label parsers with help info
Fixes #36.
Diffstat (limited to 'src/Language/GraphQL/AST/Lexer.hs')
| -rw-r--r-- | src/Language/GraphQL/AST/Lexer.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Language/GraphQL/AST/Lexer.hs b/src/Language/GraphQL/AST/Lexer.hs index 0ba55e3..17d3f9c 100644 --- a/src/Language/GraphQL/AST/Lexer.hs +++ b/src/Language/GraphQL/AST/Lexer.hs @@ -168,11 +168,11 @@ blockString = between "\"\"\"" "\"\"\"" stringValue <* spaceConsumer -- | Parser for integers. integer :: Integral a => Parser a -integer = Lexer.signed (pure ()) $ lexeme Lexer.decimal +integer = Lexer.signed (pure ()) (lexeme Lexer.decimal) <?> "IntValue" -- | Parser for floating-point numbers. float :: Parser Double -float = Lexer.signed (pure ()) $ lexeme Lexer.float +float = Lexer.signed (pure ()) (lexeme Lexer.float) <?> "FloatValue" -- | Parser for names (/[_A-Za-z][_0-9A-Za-z]*/). name :: Parser T.Text @@ -233,4 +233,4 @@ extend token extensionLabel parsers tryExtension extensionParser = try $ symbol "extend" *> symbol token - *> extensionParser
\ No newline at end of file + *> extensionParser |