diff options
| author | Eugen Wissner <belka@caraus.de> | 2019-06-23 05:38:45 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2019-06-23 05:38:45 +0200 |
| commit | 2172de37296119624ba6547b66f0d5bfe0eabf9b (patch) | |
| tree | 1d6bcfa33a886b77bbb2ea7850592a881f4eeb46 /Language | |
| parent | 5e9bf9648d891591fcb1f0e1c7b250fb80b1ddc6 (diff) | |
| download | graphql-2172de37296119624ba6547b66f0d5bfe0eabf9b.tar.gz | |
Enable mutations
Diffstat (limited to 'Language')
| -rw-r--r-- | Language/GraphQL/Lexer.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Language/GraphQL/Lexer.hs b/Language/GraphQL/Lexer.hs index 2d7e1aa..655be3d 100644 --- a/Language/GraphQL/Lexer.hs +++ b/Language/GraphQL/Lexer.hs @@ -38,12 +38,9 @@ import Data.List (dropWhileEnd) import Data.Proxy (Proxy(..)) import Data.Void (Void) import Text.Megaparsec ( Parsec - , MonadParsec - , Token , between , chunk , chunkToTokens - , lookAhead , notFollowedBy , oneOf , option @@ -162,7 +159,7 @@ blockString = between "\"\"\"" "\"\"\"" stringValue | not (isWhiteSpace $ T.head x) = acc | acc == 0 = T.length x | otherwise = min acc $ T.length x - removeIndent n [] = [] + removeIndent _ [] = [] removeIndent n (x:chunks) = T.drop n x : chunks -- | Parser for integers. |