From 8f575da5095e3b259d4eb6b6f13d3e37ef1d38e4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 11 Jun 2021 02:48:13 -0400
Subject: Added import name formatting to "import:" macros for other backends.

---
 stdlib/source/poly/lux/data/format/json.lux | 7 +++++--
 1 file changed, 5 insertions(+), 2 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 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
-- 
cgit v1.2.3