diff options
| author | Eduardo Julian | 2019-07-24 23:23:13 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-07-24 23:23:13 -0400 |
| commit | 30c19b40f5fd583d19aa7cf495a19c1b91f86320 (patch) | |
| tree | 77cda2c601e7975b665a358b96b7ae00882d3ed9 /stdlib/source/lux/data/format/json.lux | |
| parent | 68b37de7281d31470263d0e06bc72b1c5b6c2e32 (diff) | |
No more "f/"-prefixed functions.
+ No more "m/"-prefixed functions.
Diffstat (limited to 'stdlib/source/lux/data/format/json.lux')
| -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) |