diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-01-25 16:37:17 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-01-25 16:45:39 +0100 |
| commit | b4a3c9811447ab1c7704e9667ff0103771b7587c (patch) | |
| tree | 377262ed29cb8e966e24f6ec020d6ff266937cc6 /src/Language/GraphQL/AST/Lexer.hs | |
| parent | cb5270b1974f80d34b0178a90198f96d96f57522 (diff) | |
| download | graphql-b4a3c9811447ab1c7704e9667ff0103771b7587c.tar.gz | |
Parse schema extensions
Diffstat (limited to 'src/Language/GraphQL/AST/Lexer.hs')
| -rw-r--r-- | src/Language/GraphQL/AST/Lexer.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 () |