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

---
 .../source/test/aedifex/dependency/deployment.lux  | 30 +++++++++++-----------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'stdlib/source/test/aedifex/dependency/deployment.lux')

diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index 625c7c9f5..f3bb6b4a3 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -7,20 +7,20 @@
      ["[0]" hash {"+" [Hash]}]]
     [control
      ["[0]" io {"+" [IO]}]
-     ["[0]" maybe ("[1]\[0]" functor)]
-     ["[0]" try ("[1]\[0]" functor)]
+     ["[0]" maybe ("[1]#[0]" functor)]
+     ["[0]" try ("[1]#[0]" functor)]
      [concurrency
       ["[0]" atom {"+" [Atom]}]
       ["[0]" async]]]
     [data
      ["[0]" product]
-     ["[0]" binary {"+" [Binary]} ("[1]\[0]" equivalence)]
+     ["[0]" binary {"+" [Binary]} ("[1]#[0]" equivalence)]
      ["[0]" text
       ["%" format {"+" [format]}]]
      [collection
       ["[0]" dictionary {"+" [Dictionary]}]
       ["[0]" set]
-      ["[0]" list ("[1]\[0]" mix)]]]
+      ["[0]" list ("[1]#[0]" mix)]]]
     [math
      ["[0]" random {"+" [Random]}]
      [number
@@ -43,7 +43,7 @@
       ["[0]" profile]
       ["[0]" metadata]
       ["[0]" package {"+" [Package]}]
-      ["[0]" artifact {"+" [Artifact]} ("[1]\[0]" equivalence)
+      ["[0]" artifact {"+" [Artifact]} ("[1]#[0]" equivalence)
        ["[1]/[0]" type]
        ["[1]/[0]" extension]]
       ["[0]" repository
@@ -97,7 +97,7 @@
                          product.left)
 
         correct_artifact!
-        (artifact\= expected_artifact actual_artifact)
+        (artifact#= expected_artifact actual_artifact)
 
         expected_number_of_uploads!
         (n.= (n.* expected_deployments 8)
@@ -106,7 +106,7 @@
         correct_library_upload!
         (and (|> cache
                  (dictionary.value library_url)
-                 (maybe\each (binary\= expected_library))
+                 (maybe#each (binary#= expected_library))
                  (maybe.else false))
              (dictionary.key? cache (format library_url artifact/extension.sha-1))
              (dictionary.key? cache (format library_url artifact/extension.md5)))
@@ -114,7 +114,7 @@
         correct_pom_upload!
         (and (|> cache
                  (dictionary.value pom_url)
-                 (maybe\each (binary\= expected_pom))
+                 (maybe#each (binary#= expected_pom))
                  (maybe.else false))
              (dictionary.key? cache (format pom_url artifact/extension.sha-1))
              (dictionary.key? cache (format pom_url artifact/extension.md5)))
@@ -147,7 +147,7 @@
   Test
   (<| (_.covering /._)
       (do [! random.monad]
-        [address (\ ! each (text.suffix uri.separator)
+        [address (# ! each (text.suffix uri.separator)
                     (random.ascii/upper 10))]
         ($_ _.and
             (do [! random.monad]
@@ -161,17 +161,17 @@
                      cache (async.future (atom.read! cache))]
                     (_.cover' [/.one]
                               (|> ?outcome
-                                  (try\each (verify_one 1 address package cache expected_artifact))
+                                  (try#each (verify_one 1 address package cache expected_artifact))
                                   (try.else false))))))
             (do [! random.monad]
               [.let [hash (: (Hash [Dependency Artifact Package])
-                             (\ hash.functor each (|>> product.right product.left product.left)
+                             (# hash.functor each (|>> product.right product.left product.left)
                                 text.hash))]
-               num_bundles (\ ! each (n.% 10) random.nat)
+               num_bundles (# ! each (n.% 10) random.nat)
                bundles (|> ..bundle
                            (random.set hash num_bundles)
-                           (\ ! each set.list))
-               .let [resolution (list\mix (function (_ [dependency expected_artifact package] resolution)
+                           (# ! each set.list))
+               .let [resolution (list#mix (function (_ [dependency expected_artifact package] resolution)
                                             (dictionary.has dependency package resolution))
                                           resolution.empty
                                           bundles)
@@ -184,7 +184,7 @@
                      cache (async.future (atom.read! cache))]
                     (_.cover' [/.all]
                               (|> ?outcome
-                                  (try\each (function (_ actual_artifacts)
+                                  (try#each (function (_ actual_artifacts)
                                               (let [expected_deployments!
                                                     (n.= num_bundles (set.size actual_artifacts))
 
-- 
cgit v1.2.3