diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/data/format/json.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/data/format/json.lux b/stdlib/source/lux/data/format/json.lux index 2c4d3ada1..d847d801b 100644 --- a/stdlib/source/lux/data/format/json.lux +++ b/stdlib/source/lux/data/format/json.lux @@ -16,7 +16,7 @@ ["." maybe] ["." product] [number - ["." frac ("#@." decimal)]] + ["f" frac ("#@." decimal)]] ["." text ("#@." equivalence monoid)] [collection ["." list ("#@." fold functor)] @@ -157,7 +157,7 @@ [(<tag> x') (<tag> y')] (:: <struct> = x' y')) ([#Boolean bit.equivalence] - [#Number frac.equivalence] + [#Number f.equivalence] [#String text.equivalence]) [(#Array xs) (#Array ys)] @@ -202,8 +202,8 @@ (|>> (case> +0.0 "0.0" -0.0 "0.0" - value (let [raw (:: frac.decimal encode value)] - (if (f/< +0.0 value) + value (let [raw (:: f.decimal encode value)] + (if (f.< +0.0 value) raw (|> raw (text.split 1) maybe.assume product.right)))))) @@ -286,7 +286,7 @@ signed?' (l.this? "-") offset (l.many l.decimal)] (wrap ($_ text@compose mark (if signed?' "-" "") offset))))] - (case (frac@decode ($_ text@compose (if signed? "-" "") digits "." decimals exp)) + (case (f@decode ($_ text@compose (if signed? "-" "") digits "." decimals exp)) (#try.Failure message) (p.fail message) |