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 /tests/Language/GraphQL | |
| parent | 2172de37296119624ba6547b66f0d5bfe0eabf9b (diff) | |
| download | graphql-3cc38343dbcbe724fa27807af66189370e4a54ff.tar.gz | |
Fix ambigious Int resolution in the lexer tests
Diffstat (limited to 'tests/Language/GraphQL')
| -rw-r--r-- | tests/Language/GraphQL/LexerTest.hs | 9 |
1 files changed, 4 insertions, 5 deletions
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 |