diff options
| author | Sam Nolan <samnolan555@gmail.com> | 2019-11-27 19:18:20 +1100 |
|---|---|---|
| committer | Sam Nolan <samnolan555@gmail.com> | 2019-11-28 19:09:26 +1100 |
| commit | def52ddc202dc43f75ce5aebee3e448b263bde12 (patch) | |
| tree | c56816a80183928c6815f8a7279f3799313ddf4e /src | |
| parent | 34977849849cf72439ec6db61d641d70ee82dfb5 (diff) | |
| download | graphql-def52ddc202dc43f75ce5aebee3e448b263bde12.tar.gz | |
Fix strings not consuming spaces
Fixes #28
Diffstat (limited to 'src')
| -rw-r--r-- | src/Language/GraphQL/AST/Lexer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Language/GraphQL/AST/Lexer.hs b/src/Language/GraphQL/AST/Lexer.hs index e4d64ca..f95070c 100644 --- a/src/Language/GraphQL/AST/Lexer.hs +++ b/src/Language/GraphQL/AST/Lexer.hs @@ -134,7 +134,7 @@ braces = between (symbol "{") (symbol "}") -- | Parser for strings. string :: Parser T.Text -string = between "\"" "\"" stringValue +string = between "\"" "\"" stringValue <* spaceConsumer where stringValue = T.pack <$> many stringCharacter stringCharacter = satisfy isStringCharacter1 @@ -143,7 +143,7 @@ string = between "\"" "\"" stringValue -- | Parser for block strings. blockString :: Parser T.Text -blockString = between "\"\"\"" "\"\"\"" stringValue +blockString = between "\"\"\"" "\"\"\"" stringValue <* spaceConsumer where stringValue = do byLine <- sepBy (many blockStringCharacter) lineTerminator |