Fix wrong scientific exponent when parsing
This commit is contained in:
parent
285ccb0af9
commit
fb071210cf
@ -149,7 +149,7 @@ value = ValueVariable <$> variable
|
|||||||
either (pure . ValueFloat)
|
either (pure . ValueFloat)
|
||||||
(maybe (fail "Integer value is out of range.")
|
(maybe (fail "Integer value is out of range.")
|
||||||
(pure . ValueInt)
|
(pure . ValueInt)
|
||||||
. toBoundedInteger . (`scientific` 1))
|
. toBoundedInteger . (`scientific` 0))
|
||||||
. floatingOrInteger
|
. floatingOrInteger
|
||||||
|
|
||||||
-- TODO: Escape characters. Look at `jsstring_` in aeson package.
|
-- TODO: Escape characters. Look at `jsstring_` in aeson package.
|
||||||
|
Loading…
Reference in New Issue
Block a user