Fix wrong scientific exponent when parsing

2017-03-03 19:23:42 -03:00 · 2017-03-03 19:23:42 -03:00 · fb071210cf
commit fb071210cf
parent 285ccb0af9
1 changed files with 1 additions and 1 deletions
--- 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.