From b4a3c9811447ab1c7704e9667ff0103771b7587c Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sat, 25 Jan 2020 16:37:17 +0100 Subject: Parse schema extensions --- src/Language/GraphQL/AST/Lexer.hs | 3 +-- 1 file changed, 1 insertion(+), 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 7303fdf..e119303 100644 --- a/src/Language/GraphQL/AST/Lexer.hs +++ b/src/Language/GraphQL/AST/Lexer.hs @@ -32,7 +32,6 @@ module Language.GraphQL.AST.Lexer import Control.Applicative (Alternative(..), liftA2) import Data.Char (chr, digitToInt, isAsciiLower, isAsciiUpper, ord) import Data.Foldable (foldl') -import Data.Functor (($>)) import Data.List (dropWhileEnd) import Data.Proxy (Proxy(..)) import Data.Void (Void) @@ -222,4 +221,4 @@ unicodeBOM = optional (char '\xfeff') >> pure () -- | Parses "extend" followed by a 'symbol'. It is used by schema extensions. extend :: Text -> Parser () -extend token = symbol "extend" $> extend token >> pure () +extend token = symbol "extend" *> symbol token >> pure () -- cgit v1.2.3