From fb071210cfd163bf8ee97448b7976ab4bdf1ed50 Mon Sep 17 00:00:00 2001 From: Danny Navarro Date: Fri, 3 Mar 2017 19:23:42 -0300 Subject: [PATCH] Fix wrong scientific exponent when parsing --- Data/GraphQL/Parser.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Data/GraphQL/Parser.hs b/Data/GraphQL/Parser.hs index df91e99..35f42d5 100644 --- a/Data/GraphQL/Parser.hs +++ b/Data/GraphQL/Parser.hs @@ -149,7 +149,7 @@ value = ValueVariable <$> variable either (pure . ValueFloat) (maybe (fail "Integer value is out of range.") (pure . ValueInt) - . toBoundedInteger . (`scientific` 1)) + . toBoundedInteger . (`scientific` 0)) . floatingOrInteger -- TODO: Escape characters. Look at `jsstring_` in aeson package.