diff options
| author | Eugen Wissner <belka@caraus.de> | 2019-12-25 06:45:29 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2019-12-25 06:45:29 +0100 |
| commit | 62f3c34bfedeb286d3639ff3ade68cdb3fe862b8 (patch) | |
| tree | 5b690b78a52652f62d27cb5bbd4ce09350731023 /src/Language/GraphQL/AST/Lexer.hs | |
| parent | bdf711d69f71596e29328ae766c126c04f919267 (diff) | |
| download | graphql-62f3c34bfedeb286d3639ff3ade68cdb3fe862b8.tar.gz | |
Replace AST.Selection data constructors
Diffstat (limited to 'src/Language/GraphQL/AST/Lexer.hs')
| -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 f95070c..80370d4 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 <* spaceConsumer +string = between "\"" "\"" stringValue <* spaceConsumer where stringValue = T.pack <$> many stringCharacter stringCharacter = satisfy isStringCharacter1 @@ -143,7 +143,7 @@ string = between "\"" "\"" stringValue <* spaceConsumer -- | Parser for block strings. blockString :: Parser T.Text -blockString = between "\"\"\"" "\"\"\"" stringValue <* spaceConsumer +blockString = between "\"\"\"" "\"\"\"" stringValue <* spaceConsumer where stringValue = do byLine <- sepBy (many blockStringCharacter) lineTerminator |