From cd71a864ad5be13ed6ec6d046e0a2cb1087bdf94 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Fri, 10 Sep 2021 01:21:23 -0400 Subject: Migrated variants to the new syntax. --- stdlib/source/poly/lux/data/format/json.lux | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'stdlib/source/poly') 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) -- cgit v1.2.3