From a02b7bf8ff358ccfa35b03272d28537aeac723ae Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 28 Nov 2020 19:45:56 -0400
Subject: Added "private" macro to lux/debug.

---
 stdlib/source/program/aedifex/pom.lux | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

(limited to 'stdlib/source/program/aedifex/pom.lux')

diff --git a/stdlib/source/program/aedifex/pom.lux b/stdlib/source/program/aedifex/pom.lux
index a310b2c48..8a6712930 100644
--- a/stdlib/source/program/aedifex/pom.lux
+++ b/stdlib/source/program/aedifex/pom.lux
@@ -10,11 +10,11 @@
      ["<xml>" xml (#+ Parser)]]]
    [data
     ["." name]
-    ["." maybe ("#@." functor)]
+    ["." maybe ("#\." functor)]
     [format
      ["_" xml (#+ Tag XML)]]
     [collection
-     ["." list ("#@." monoid functor fold)]
+     ["." list ("#\." monoid functor fold)]
      ["." set]
      ["." dictionary]]]]
   ["." // #_
@@ -75,7 +75,7 @@
   (-> Dependency XML)
   (#_.Node ["" "dependency"]
            _.attrs
-           (list@compose (..artifact (get@ #//dependency.artifact value))
+           (list\compose (..artifact (get@ #//dependency.artifact value))
                          (list (..property "type" (get@ #//dependency.type value))))))
 
 (def: (group tag)
@@ -104,7 +104,7 @@
     (-> /.Developer (List XML))
     (list& (..property "name" name)
            (..property "email" email)
-           (|> organization (maybe@map ..developer-organization) (maybe.default (list)))))
+           (|> organization (maybe\map ..developer-organization) (maybe.default (list)))))
 
   (template [<name> <type> <tag>]
     [(def: <name>
@@ -117,14 +117,14 @@
 
   (def: (info value)
     (-> /.Info (List XML))
-    ($_ list@compose
-        (|> value (get@ #/.url) (maybe@map (..property "url")) maybe.to-list)
-        (|> value (get@ #/.description) (maybe@map (..property "description")) maybe.to-list)
-        (|> value (get@ #/.licenses) (list@map ..license) (..group "licenses") list)
-        (|> value (get@ #/.scm) (maybe@map ..scm) maybe.to-list)
-        (|> value (get@ #/.organization) (maybe@map ..organization) maybe.to-list)
-        (|> value (get@ #/.developers) (list@map ..developer) (..group "developers") list)
-        (|> value (get@ #/.contributors) (list@map ..contributor) (..group "contributors") list)
+    ($_ list\compose
+        (|> value (get@ #/.url) (maybe\map (..property "url")) maybe.to-list)
+        (|> value (get@ #/.description) (maybe\map (..property "description")) maybe.to-list)
+        (|> value (get@ #/.licenses) (list\map ..license) (..group "licenses") list)
+        (|> value (get@ #/.scm) (maybe\map ..scm) maybe.to-list)
+        (|> value (get@ #/.organization) (maybe\map ..organization) maybe.to-list)
+        (|> value (get@ #/.developers) (list\map ..developer) (..group "developers") list)
+        (|> value (get@ #/.contributors) (list\map ..contributor) (..group "contributors") list)
         ))
   )
 
@@ -134,11 +134,11 @@
     (#.Some identity)
     (#try.Success
      (#_.Node ["" ..project-tag] _.attrs
-              ($_ list@compose
+              ($_ list\compose
                   (list ..version)
                   (..artifact identity)
-                  (|> value (get@ #/.repositories) set.to-list (list@map ..repository) (..group "repositories") list)
-                  (|> value (get@ #/.dependencies) set.to-list (list@map ..dependency) (..group ..dependencies-tag) list)
+                  (|> value (get@ #/.repositories) set.to-list (list\map ..repository) (..group "repositories") list)
+                  (|> value (get@ #/.dependencies) set.to-list (list\map ..dependency) (..group ..dependencies-tag) list)
                   )))
 
     _
@@ -183,4 +183,4 @@
         _ (<>.some <xml>.ignore)]
        (wrap (|> (:: /.monoid identity)
                  (update@ #/.dependencies (function (_ empty)
-                                            (list@fold set.add empty dependencies)))))))))
+                                            (list\fold set.add empty dependencies)))))))))
-- 
cgit v1.2.3