From 30c19b40f5fd583d19aa7cf495a19c1b91f86320 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 24 Jul 2019 23:23:13 -0400
Subject: No more "f/"-prefixed functions.

+ No more "m/"-prefixed functions.---
 stdlib/source/lux/data/format/json.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/lux/data/format/json.lux')

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)
       
-- 
cgit v1.2.3