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

---
 stdlib/source/program/aedifex/repository/identity.lux |  2 +-
 stdlib/source/program/aedifex/repository/local.lux    | 16 ++++++++--------
 stdlib/source/program/aedifex/repository/remote.lux   |  6 +++---
 3 files changed, 12 insertions(+), 12 deletions(-)

(limited to 'stdlib/source/program/aedifex/repository')

diff --git a/stdlib/source/program/aedifex/repository/identity.lux b/stdlib/source/program/aedifex/repository/identity.lux
index abe5e2e1b..39a614880 100644
--- a/stdlib/source/program/aedifex/repository/identity.lux
+++ b/stdlib/source/program/aedifex/repository/identity.lux
@@ -39,7 +39,7 @@
 
 (def: .public (basic_auth user password)
   (-> User Password Text)
-  (let [credentials (\ utf8.codec encoded (format user ":" password))]
+  (let [credentials (# utf8.codec encoded (format user ":" password))]
     (|> (java/util/Base64::getEncoder)
         (java/util/Base64$Encoder::encodeToString credentials)
         (format "Basic "))))
diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux
index e00c5f240..5af09ac99 100644
--- a/stdlib/source/program/aedifex/repository/local.lux
+++ b/stdlib/source/program/aedifex/repository/local.lux
@@ -24,7 +24,7 @@
   (-> (Program Async) Text file.Path)
   (|> ///local.repository
       (text.replaced uri.separator /)
-      (format (\ program home) /)))
+      (format (# program home) /)))
 
 (def: (path /)
   (-> Text (-> URI file.Path))
@@ -40,16 +40,16 @@
   (-> (Program Async) (file.System Async) (//.Repository Async))
 
   (def: description
-    (..root program (\ fs separator)))
+    (..root program (# fs separator)))
 
   (def: download
-    (|>> (..absolute_path program (\ fs separator))
-         (\ fs read)))
+    (|>> (..absolute_path program (# fs separator))
+         (# fs read)))
 
   (def: (upload uri content)
     (do [! async.monad]
-      [.let [absolute_path (..absolute_path program (\ fs separator) uri)]
-       ? (\ fs file? absolute_path)
+      [.let [absolute_path (..absolute_path program (# fs separator) uri)]
+       ? (# fs file? absolute_path)
        _ (if ?
            (in [])
            (case (file.parent fs absolute_path)
@@ -58,5 +58,5 @@
 
              _
              (let [! (try.with async.monad)]
-               (\ ! in []))))]
-      (\ fs write content absolute_path))))
+               (# ! in []))))]
+      (# fs write content absolute_path))))
diff --git a/stdlib/source/program/aedifex/repository/remote.lux b/stdlib/source/program/aedifex/repository/remote.lux
index 9f09b0993..d314cfa39 100644
--- a/stdlib/source/program/aedifex/repository/remote.lux
+++ b/stdlib/source/program/aedifex/repository/remote.lux
@@ -69,12 +69,12 @@
                                      http))]
       (case status
         (^ (static http/status.ok))
-        (\ ! each product.right ((value@ #@http.body message) {.#None}))
+        (# ! each product.right ((value@ #@http.body message) {.#None}))
         
         _
         (do !
           [_ ((value@ #@http.body message) {.#Some 0})]
-          (\ io.monad in (exception.except ..download_failure [(format address uri) status]))))))
+          (# io.monad in (exception.except ..download_failure [(format address uri) status]))))))
 
   (def: (upload uri content)
     (do (try.with io.monad)
@@ -95,5 +95,5 @@
         (in [])
         
         _
-        (\ io.monad in (exception.except ..upload_failure [(format address uri) status])))))
+        (# io.monad in (exception.except ..upload_failure [(format address uri) status])))))
   )
-- 
cgit v1.2.3