aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/repository
diff options
context:
space:
mode:
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.lux12
-rw-r--r--stdlib/source/program/aedifex/repository/remote.lux6
3 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/program/aedifex/repository/identity.lux b/stdlib/source/program/aedifex/repository/identity.lux
index f3111fed3..5f618e183 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 (at utf8.codec encoded (format user ":" password))]
(|> (java/util/Base64::getEncoder)
(java/util/Base64$Encoder::encodeToString credentials)
ffi.of_string
diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux
index e712e1db1..6f031ccfd 100644
--- a/stdlib/source/program/aedifex/repository/local.lux
+++ b/stdlib/source/program/aedifex/repository/local.lux
@@ -22,10 +22,10 @@
(def: .public (root program fs)
(-> (Program Async) (file.System Async) file.Path)
- (let [/ (# fs separator)]
+ (let [/ (at fs separator)]
(|> ///local.repository
(text.replaced uri.separator /)
- (format (# program home) /))))
+ (format (at program home) /))))
(def: (path /)
(-> Text (-> URI file.Path))
@@ -33,7 +33,7 @@
(def: (absolute_path program fs)
(-> (Program Async) (file.System Async) (-> URI file.Path))
- (let [/ (# fs separator)]
+ (let [/ (at fs separator)]
(|>> ///metadata.local_uri
(..path /)
(format (..root program fs) /))))
@@ -46,12 +46,12 @@
(def: download
(|>> (..absolute_path program fs)
- (# fs read)))
+ (at fs read)))
(def: (upload uri content)
(do [! async.monad]
[.let [absolute_path (..absolute_path program fs uri)]
- ? (# fs file? absolute_path)
+ ? (at fs file? absolute_path)
_ (is (Async (Try Any))
(if ?
(in {try.#Success []})
@@ -61,4 +61,4 @@
_
(in {try.#Success []}))))]
- (# fs write absolute_path content))))
+ (at fs write absolute_path content))))
diff --git a/stdlib/source/program/aedifex/repository/remote.lux b/stdlib/source/program/aedifex/repository/remote.lux
index c6aafb221..8a93e4cfd 100644
--- a/stdlib/source/program/aedifex/repository/remote.lux
+++ b/stdlib/source/program/aedifex/repository/remote.lux
@@ -68,12 +68,12 @@
http))]
(case status
(pattern (static http/status.ok))
- (# ! each product.right ((the @http.#body message) {.#None}))
+ (at ! each product.right ((the @http.#body message) {.#None}))
_
(do !
[_ ((the @http.#body message) {.#Some 0})]
- (# io.monad in (exception.except ..download_failure [(format address uri) status]))))))
+ (at io.monad in (exception.except ..download_failure [(format address uri) status]))))))
(def: (upload uri content)
(do (try.with io.monad)
@@ -94,5 +94,5 @@
(in [])
_
- (# io.monad in (exception.except ..upload_failure [(format address uri) status])))))
+ (at io.monad in (exception.except ..upload_failure [(format address uri) status])))))
)