From 8efb08fda157770afb836537b27c2cd55042b706 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sun, 5 Jan 2020 07:42:04 +0100 Subject: Parse ObjectDefinition --- src/Language/GraphQL/AST/Lexer.hs | 16 +++------------- 1 file changed, 3 insertions(+), 13 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 80370d4..1cb3363 100644 --- a/src/Language/GraphQL/AST/Lexer.hs +++ b/src/Language/GraphQL/AST/Lexer.hs @@ -28,15 +28,8 @@ module Language.GraphQL.AST.Lexer , unicodeBOM ) where -import Control.Applicative ( Alternative(..) - , liftA2 - ) -import Data.Char ( chr - , digitToInt - , isAsciiLower - , isAsciiUpper - , ord - ) +import Control.Applicative (Alternative(..), liftA2) +import Data.Char (chr, digitToInt, isAsciiLower, isAsciiUpper, ord) import Data.Foldable (foldl') import Data.List (dropWhileEnd) import Data.Proxy (Proxy(..)) @@ -56,10 +49,7 @@ import Text.Megaparsec ( Parsec , takeWhile1P , try ) -import Text.Megaparsec.Char ( char - , digitChar - , space1 - ) +import Text.Megaparsec.Char (char, digitChar, space1) import qualified Text.Megaparsec.Char.Lexer as Lexer import qualified Data.Text as T import qualified Data.Text.Lazy as TL -- cgit v1.2.3