From ba710a3c968f954d69d3412d91b06debb4fc5a6d Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Wed, 15 Jan 2020 20:20:50 +0100 Subject: Parse complete TypeSystemDefinition --- src/Language/GraphQL/AST/Lexer.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Language/GraphQL/AST/Lexer.hs') diff --git a/src/Language/GraphQL/AST/Lexer.hs b/src/Language/GraphQL/AST/Lexer.hs index 1cb3363..c2ed35c 100644 --- a/src/Language/GraphQL/AST/Lexer.hs +++ b/src/Language/GraphQL/AST/Lexer.hs @@ -51,6 +51,7 @@ import Text.Megaparsec ( Parsec ) import Text.Megaparsec.Char (char, digitChar, space1) import qualified Text.Megaparsec.Char.Lexer as Lexer +import Data.Text (Text) import qualified Data.Text as T import qualified Data.Text.Lazy as TL @@ -87,8 +88,8 @@ dollar :: Parser T.Text dollar = symbol "$" -- | Parser for "@". -at :: Parser Char -at = char '@' +at :: Parser Text +at = symbol "@" -- | Parser for "&". amp :: Parser T.Text -- cgit v1.2.3