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.