From 5175586def05410890023ab340b8381045de6811 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Mon, 26 Aug 2019 10:14:46 +0200 Subject: Provide more documentation on functions and types --- src/Language/GraphQL/Lexer.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Language/GraphQL/Lexer.hs') diff --git a/src/Language/GraphQL/Lexer.hs b/src/Language/GraphQL/Lexer.hs index 8ca03bf..dc000b5 100644 --- a/src/Language/GraphQL/Lexer.hs +++ b/src/Language/GraphQL/Lexer.hs @@ -71,6 +71,8 @@ type Parser = Parsec Void T.Text ignoredCharacters :: Parser () ignoredCharacters = space1 <|> skipSome (char ',') +-- | Parser that skips comments and meaningless characters, whitespaces and +-- commas. spaceConsumer :: Parser () spaceConsumer = Lexer.space ignoredCharacters comment empty -- cgit v1.2.3