diff options
| author | Eugen Wissner <belka@caraus.de> | 2019-06-26 15:41:30 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2019-06-26 15:41:30 +0200 |
| commit | 3cc38343dbcbe724fa27807af66189370e4a54ff (patch) | |
| tree | 1d5b30534aebb88ce1be6bc7adacbe8d2c654f2d | |
| parent | 2172de37296119624ba6547b66f0d5bfe0eabf9b (diff) | |
| download | graphql-3cc38343dbcbe724fa27807af66189370e4a54ff.tar.gz | |
Fix ambigious Int resolution in the lexer tests
| -rw-r--r-- | stack.yaml.lock | 12 | ||||
| -rw-r--r-- | tests/Language/GraphQL/LexerTest.hs | 9 | ||||
| -rw-r--r-- | tests/tasty.hs | 1 |
3 files changed, 16 insertions, 6 deletions
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 |