aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/poly
diff options
context:
space:
mode:
authorEduardo Julian2021-09-10 01:21:23 -0400
committerEduardo Julian2021-09-10 01:21:23 -0400
commitcd71a864ad5be13ed6ec6d046e0a2cb1087bdf94 (patch)
treeaf6366578f98f1a8e551f4da9f3ad230fd63a4dd /stdlib/source/poly
parentef77466323f85a3d1b65b46a3deb93652ef22085 (diff)
Migrated variants to the new syntax.
Diffstat (limited to 'stdlib/source/poly')
-rw-r--r--stdlib/source/poly/lux/data/format/json.lux6
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/poly/lux/data/format/json.lux b/stdlib/source/poly/lux/data/format/json.lux
index 5fed388e2..e556c2ac6 100644
--- a/stdlib/source/poly/lux/data/format/json.lux
+++ b/stdlib/source/poly/lux/data/format/json.lux
@@ -59,8 +59,8 @@
(def: (encoded input)
(let [high (|> input (i64.and high_mask) (i64.right_shifted 32))
low (i64.and low_mask input)]
- (#/.Array (row (|> high .int int.frac #/.Number)
- (|> low .int int.frac #/.Number)))))
+ {#/.Array (row (|> high .int int.frac #/.Number)
+ (|> low .int int.frac #/.Number))}))
(def: decoded
(</>.result (</>.array
(do <>.monad
@@ -83,7 +83,7 @@
(function (_ elem)
(case elem
#.None #/.Null
- (#.Some value) (writer value))))
+ {#.Some value} (writer value))))
(implementation: qty_codec
(All (_ unit)