From 2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 15:39:55 -0400
Subject: Re-named \ => # && \\ => ##

---
 .../program/aedifex/dependency/resolution.lux      | 40 +++++++++++-----------
 1 file changed, 20 insertions(+), 20 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux
index 12848cb58..c5cdce6b8 100644
--- a/stdlib/source/program/aedifex/dependency/resolution.lux
+++ b/stdlib/source/program/aedifex/dependency/resolution.lux
@@ -11,7 +11,7 @@
      ["[0]" predicate {"+" [Predicate]}]]
     [control
      ["[0]" maybe]
-     ["[0]" try {"+" [Try]} ("[1]\[0]" functor)]
+     ["[0]" try {"+" [Try]} ("[1]#[0]" functor)]
      ["[0]" exception {"+" [Exception exception:]}]
      ["<>" parser
       ["<[0]>" xml {"+" [Parser]}]]
@@ -29,7 +29,7 @@
      [collection
       ["[0]" dictionary {"+" [Dictionary]}]
       ["[0]" set]
-      ["[0]" list ("[1]\[0]" functor monoid)]]]
+      ["[0]" list ("[1]#[0]" functor monoid)]]]
     [math
      [number
       ["n" nat]
@@ -83,22 +83,22 @@
         (Exception [Artifact Extension Text])
         (Async (Try (Maybe (Hash h))))))
   (do async.monad
-    [?actual (\ repository download (///repository/remote.uri version_template artifact extension))]
+    [?actual (# repository download (///repository/remote.uri version_template artifact extension))]
     (case ?actual
       {try.#Success actual}
       (in (do [! try.monad]
-            [output (\ ! each (for [@.old (|>> (:as java/lang/String)
+            [output (# ! each (for [@.old (|>> (:as java/lang/String)
                                                java/lang/String::trim
                                                (:as Text))
                                     @.jvm (|>> java/lang/String::trim)])
-                       (\ utf8.codec decoded actual))
+                       (# utf8.codec decoded actual))
              actual (|> output
                         (text.all_split_by " ")
                         list.head
                         (maybe.else output)
-                        (\ codec decoded))
+                        (# codec decoded))
              _ (exception.assertion exception [artifact extension output]
-                                    (\ ///hash.equivalence = (hash library) actual))]
+                                    (# ///hash.equivalence = (hash library) actual))]
             (in {.#Some actual})))
       
       {try.#Failure error}
@@ -107,7 +107,7 @@
 (def: (hashed repository version_template artifact extension)
   (-> (Repository Async) Version Artifact Extension (Async (Try [Binary Status])))
   (do (try.with async.monad)
-    [data (\ repository download (///repository/remote.uri version_template artifact extension))
+    [data (# repository download (///repository/remote.uri version_template artifact extension))
      ?sha-1 (..verified_hash data
                              repository version_template artifact (format extension ///artifact/extension.sha-1)
                              ///hash.sha-1 ///hash.sha-1_codec ..sha-1_does_not_match)
@@ -139,10 +139,10 @@
              artifact (with@ ///artifact.#version artifact_version artifact)]
        [pom_data pom_status] (..hashed repository version_template artifact ///artifact/extension.pom)
        library_&_status (..hashed repository version_template artifact extension)]
-      (\ async.monad in
+      (# async.monad in
          (do try.monad
-           [pom (\ utf8.codec decoded pom_data)
-            pom (\ xml.codec decoded pom)
+           [pom (# utf8.codec decoded pom_data)
+            pom (# xml.codec decoded pom)
             profile (<xml>.result ///pom.parser (list pom))]
            (in [///package.#origin {///repository/origin.#Remote ""}
                 ///package.#library library_&_status
@@ -167,11 +167,11 @@
 (template [<sigil> <name> <doing> <at>]
   [(def: (<name> console repository artifact)
      (-> (Console Async) (Repository Async) Artifact (Async (Try Any)))
-     (\ console write (format "[" <sigil> "]"
+     (# console write (format "[" <sigil> "]"
                               " " <doing>
                               " " (///artifact.format artifact)
                               " " <at>
-                              " " (%.text (\ repository description))
+                              " " (%.text (# repository description))
                               text.new_line)))]
 
   ["?" announce_fetching "Fetching" "from"]
@@ -185,7 +185,7 @@
     {.#End}
     (|> dependency
         (exception.except ..cannot_resolve)
-        (\ async.monad in))
+        (# async.monad in))
 
     {.#Item repository alternatives}
     (do [! async.monad]
@@ -214,7 +214,7 @@
          resolution resolution]
     (case dependencies
       {.#End}
-      (\ async.monad in
+      (# async.monad in
          [successes failures resolution])
 
       {.#Item head tail}
@@ -236,20 +236,20 @@
               {try.#Success package}
               (do !
                 [.let [redundant? (: (Predicate Dependency)
-                                     (predicate.or (\ //.equivalence = head)
+                                     (predicate.or (# //.equivalence = head)
                                                    (dictionary.key? resolution)))
                        sub_dependencies (|> package
                                             ///package.dependencies
-                                            (try\each (|>> set.list
+                                            (try#each (|>> set.list
                                                            (list.only (|>> redundant? not))))
                                             (try.else (list)))
                        ... For security reasons, it's not a good idea to allow dependencies to introduce repositories.
                        ... package_repositories (|> package
                        ...                          ///package.repositories
-                       ...                          (try\each set.list)
+                       ...                          (try#each set.list)
                        ...                          (try.else (list))
-                       ...                          (list\each new_repository))
-                       ... sub_repositories (list\composite repositories package_repositories)
+                       ...                          (list#each new_repository))
+                       ... sub_repositories (list#composite repositories package_repositories)
                        ]]
                 (recur repositories
                        {.#Item head successes}
-- 
cgit v1.2.3