aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/poly
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/poly')
-rw-r--r--stdlib/source/poly/lux/data/format/json.lux7
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