aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/repository
diff options
context:
space:
mode:
authorEduardo Julian2021-09-12 15:39:55 -0400
committerEduardo Julian2021-09-12 15:39:55 -0400
commit2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd (patch)
tree14bc8b5abe09b46ef005c3ff7cf132f1d98ddf0d /stdlib/source/program/aedifex/repository
parentdda05bca0956af5e5b3875c4cc36e61aa04772e4 (diff)
Re-named \ => # && \\ => ##
Diffstat (limited to 'stdlib/source/program/aedifex/repository')
-rw-r--r--stdlib/source/program/aedifex/repository/identity.lux2
-rw-r--r--stdlib/source/program/aedifex/repository/local.lux16
-rw-r--r--stdlib/source/program/aedifex/repository/remote.lux6
3 files changed, 12 insertions, 12 deletions
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])))))
)