aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/metadata
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/aedifex/metadata/artifact.lux12
-rw-r--r--stdlib/source/program/aedifex/metadata/snapshot.lux14
2 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux
index 3fa300bf8..9ae6f0ef4 100644
--- a/stdlib/source/program/aedifex/metadata/artifact.lux
+++ b/stdlib/source/program/aedifex/metadata/artifact.lux
@@ -178,13 +178,13 @@
(def .public (read repository artifact)
(-> (Repository Async) Artifact (Async (Try Metadata)))
(do async.monad
- [project (at repository download (..uri artifact))]
+ [project (of repository download (..uri artifact))]
(when project
{try.#Success binary_metadata}
(in (|> binary_metadata
(pipe.do try.monad
- [(at utf8.codec decoded)]
- [(at xml.codec decoded)]
+ [(of utf8.codec decoded)]
+ [(of xml.codec decoded)]
[list (<xml>.result ..parser)])))
{try.#Failure error}
@@ -199,6 +199,6 @@
(-> (Repository Async) Artifact Metadata (Async (Try Any)))
(|> metadata
..format
- (at xml.codec encoded)
- (at utf8.codec encoded)
- (at repository upload (..uri artifact))))
+ (of xml.codec encoded)
+ (of utf8.codec encoded)
+ (of repository upload (..uri artifact))))
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 63000bac4..2c372392d 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -94,7 +94,7 @@
///artifact/snapshot/version.#value version
///artifact/snapshot/version.#updated ///artifact/time.epoch]]
(|> (<xml>.somewhere ///artifact/versioning.parser)
- (at ! each
+ (of ! each
(revised ///artifact/versioning.#versions
(is (-> (List ///artifact/snapshot/version.Version)
(List ///artifact/snapshot/version.Version))
@@ -126,13 +126,13 @@
(def .public (read repository artifact)
(-> (Repository Async) Artifact (Async (Try Metadata)))
(do async.monad
- [project (at repository download (..uri artifact))]
+ [project (of repository download (..uri artifact))]
(when project
{try.#Success project}
(in (|> project
(pipe.do try.monad
- [(at utf8.codec decoded)]
- [(at xml.codec decoded)]
+ [(of utf8.codec decoded)]
+ [(of xml.codec decoded)]
[list (<xml>.result ..parser)])))
{try.#Failure error}
@@ -144,6 +144,6 @@
(-> (Repository Async) Artifact Metadata (Async (Try Any)))
(|> metadata
..format
- (at xml.codec encoded)
- (at utf8.codec encoded)
- (at repository upload (..uri artifact))))
+ (of xml.codec encoded)
+ (of utf8.codec encoded)
+ (of repository upload (..uri artifact))))