diff options
Diffstat (limited to 'stdlib/source/lux/data/format/json.lux')
| -rw-r--r-- | stdlib/source/lux/data/format/json.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/data/format/json.lux b/stdlib/source/lux/data/format/json.lux index d48b5b97a..04e462feb 100644 --- a/stdlib/source/lux/data/format/json.lux +++ b/stdlib/source/lux/data/format/json.lux @@ -602,7 +602,7 @@ (-> Nat (Parser Unit)) (case json (#Array parts) - (if (=+ array-size (vector;size parts)) + (if (n.= array-size (vector;size parts)) (#;Right []) (#;Left (format "JSON array does no have size " (%n array-size) " " (show-json json)))) @@ -614,7 +614,7 @@ (case json (#Object kvs) (let [actual-fields (dict;keys kvs)] - (if (and (=+ (list;size wanted-fields) (list;size actual-fields)) + (if (and (n.= (list;size wanted-fields) (list;size actual-fields)) (list;every? (list;member? text;Eq<Text> wanted-fields) actual-fields)) (#;Right []) @@ -638,7 +638,7 @@ [#String text;Eq<Text>]) [(#Array xs) (#Array ys)] - (and (=+ (vector;size xs) (vector;size ys)) + (and (n.= (vector;size xs) (vector;size ys)) (fold (lambda [idx prev] (and prev (default false @@ -650,7 +650,7 @@ (list;indices (vector;size xs)))) [(#Object xs) (#Object ys)] - (and (=+ (dict;size xs) (dict;size ys)) + (and (n.= (dict;size xs) (dict;size ys)) (fold (lambda [[xk xv] prev] (and prev (case (dict;get xk ys) |