From 2172de37296119624ba6547b66f0d5bfe0eabf9b Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sun, 23 Jun 2019 05:38:45 +0200
Subject: Enable mutations

---
 Language/GraphQL/Lexer.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'Language/GraphQL/Lexer.hs')

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.
-- 
cgit v1.2.3