From 3cc38343dbcbe724fa27807af66189370e4a54ff Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 26 Jun 2019 15:41:30 +0200
Subject: [PATCH] Fix ambigious Int resolution in the lexer tests

---
 stack.yaml.lock                     | 12 ++++++++++++
 tests/Language/GraphQL/LexerTest.hs |  9 ++++-----
 tests/tasty.hs                      |  1 -
 3 files changed, 16 insertions(+), 6 deletions(-)
 create mode 100644 stack.yaml.lock

diff --git a/stack.yaml.lock b/stack.yaml.lock
new file mode 100644
index 0000000..ea480aa
--- /dev/null
+++ b/stack.yaml.lock
@@ -0,0 +1,12 @@
+# This file was autogenerated by Stack.
+# You should not edit this file by hand.
+# For more information, please see the documentation at:
+#   https://docs.haskellstack.org/en/stable/lock_files
+
+packages: []
+snapshots:
+- completed:
+    size: 499889
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/13/26.yaml
+    sha256: ecb02ee16829df8d7219e7d7fe6c310819820bf335b0b9534bce84d3ea896684
+  original: lts-13.26
diff --git a/tests/Language/GraphQL/LexerTest.hs b/tests/Language/GraphQL/LexerTest.hs
index a8eb4a3..fdd12f4 100644
--- a/tests/Language/GraphQL/LexerTest.hs
+++ b/tests/Language/GraphQL/LexerTest.hs
@@ -6,7 +6,6 @@ module Language.GraphQL.LexerTest
     , reference
     ) where
 
-import Control.Applicative (Alternative(..))
 import Language.GraphQL.Lexer
 import qualified Data.Text as T
 import Data.Void (Void)
@@ -58,11 +57,11 @@ reference = testGroup "Lexer"
             """|] @?= Right "spans\n  multiple\n    lines"
 
     , testCase "lexes numbers" $ do
-        runParser integer "4" @?= Right 4
+        runParser integer "4" @?= Right (4 :: Int)
         runParser float "4.123" @?= Right 4.123
-        runParser integer "-4" @?= Right (-4)
-        runParser integer "9" @?= Right 9
-        runParser integer "0" @?= Right 0
+        runParser integer "-4" @?= Right (-4 :: Int)
+        runParser integer "9" @?= Right (9 :: Int)
+        runParser integer "0" @?= Right (0 :: Int)
         runParser float "-4.123" @?= Right (-4.123)
         runParser float "0.123" @?= Right 0.123
         runParser float "123e4" @?= Right 123e4
diff --git a/tests/tasty.hs b/tests/tasty.hs
index 5d4036d..9009302 100644
--- a/tests/tasty.hs
+++ b/tests/tasty.hs
@@ -1,6 +1,5 @@
 module Main where
 
-import Control.Monad.IO.Class (liftIO)
 import qualified Data.GraphQL.Encoder as Encoder
 import qualified Language.GraphQL.LexerTest as LexerTest
 import qualified Data.GraphQL.Parser as Parser