aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/data/format/json.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/data/format/json.lux6
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/data/format/json.lux b/stdlib/source/lux/data/format/json.lux
index 0ce1b602a..d7469e24b 100644
--- a/stdlib/source/lux/data/format/json.lux
+++ b/stdlib/source/lux/data/format/json.lux
@@ -260,16 +260,16 @@
(l;Lexer Number)
(do p;Monad<Parser>
[signed? (l;this? "-")
- digits (l;many l;digit)
+ digits (l;many l;decimal)
decimals (p;default "0"
(do @
[_ (l;this ".")]
- (l;many l;digit)))
+ (l;many l;decimal)))
exp (p;default ""
(do @
[mark (l;one-of "eE")
signed?' (l;this? "-")
- offset (l;many l;digit)]
+ offset (l;many l;decimal)]
(wrap (format mark (if signed?' "-" "") offset))))]
(case (Real/decode (format (if signed? "-" "") digits "." decimals exp))
(#R;Error message)