diff options
| author | Eduardo Julian | 2021-06-11 02:48:13 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-06-11 02:48:13 -0400 |
| commit | 8f575da5095e3b259d4eb6b6f13d3e37ef1d38e4 (patch) | |
| tree | d4ad0bf5582637395508b4a260491373d55e760b /stdlib/source/poly/lux/data/format/json.lux | |
| parent | 486488ae17007406a6c90f182b85f7be14b6b373 (diff) | |
Added import name formatting to "import:" macros for other backends.
Diffstat (limited to 'stdlib/source/poly/lux/data/format/json.lux')
| -rw-r--r-- | stdlib/source/poly/lux/data/format/json.lux | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/stdlib/source/poly/lux/data/format/json.lux b/stdlib/source/poly/lux/data/format/json.lux index 947e3666a..1efbf39a8 100644 --- a/stdlib/source/poly/lux/data/format/json.lux +++ b/stdlib/source/poly/lux/data/format/json.lux @@ -1,5 +1,6 @@ (.module: {#.doc "Codecs for values in the JSON format."} [lux #* + ["." debug] [abstract [monad (#+ Monad do)] [equivalence (#+ Equivalence)] @@ -91,9 +92,11 @@ (codec.Codec JSON (unit.Qty unit))) (def: encode - (|>> unit.out (\ ..int_codec encode))) + (|>> ((debug.private unit.out)) + (\ ..int_codec encode))) (def: decode - (|>> (\ ..int_codec decode) (\ try.functor map unit.in)))) + (|>> (\ ..int_codec decode) + (\ try.functor map (debug.private unit.in))))) (poly: encode (with_expansions |