aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/metadata
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/metadata')
-rw-r--r--stdlib/source/program/aedifex/metadata/artifact.lux12
-rw-r--r--stdlib/source/program/aedifex/metadata/snapshot.lux30
2 files changed, 21 insertions, 21 deletions
diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux
index 0ba7371b8..e2e363c16 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 (# repository download (..uri artifact))]
+ [project (at repository download (..uri artifact))]
(case project
{try.#Success binary_metadata}
(in (|> binary_metadata
(pipe.do try.monad
- [(# utf8.codec decoded)]
- [(# xml.codec decoded)]
+ [(at utf8.codec decoded)]
+ [(at xml.codec decoded)]
[list (<xml>.result ..parser)])))
{try.#Failure error}
@@ -199,6 +199,6 @@
(-> (Repository Async) Artifact Metadata (Async (Try Any)))
(|> metadata
..format
- (# xml.codec encoded)
- (# utf8.codec encoded)
- (# repository upload (..uri artifact))))
+ (at xml.codec encoded)
+ (at utf8.codec encoded)
+ (at repository upload (..uri artifact))))
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index eb2f48c76..caf25a787 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -95,16 +95,16 @@
///artifact/snapshot/version.#value version
///artifact/snapshot/version.#updated ///artifact/time.epoch]]
(|> (<xml>.somewhere ///artifact/versioning.parser)
- (# ! each
- (revised ///artifact/versioning.#versions
- (is (-> (List ///artifact/snapshot/version.Version)
- (List ///artifact/snapshot/version.Version))
- (|>> (pipe.case
- (pattern (list))
- (list <default_version>)
+ (at ! each
+ (revised ///artifact/versioning.#versions
+ (is (-> (List ///artifact/snapshot/version.Version)
+ (List ///artifact/snapshot/version.Version))
+ (|>> (pipe.case
+ (pattern (list))
+ (list <default_version>)
- versions
- versions)))))
+ versions
+ versions)))))
(<>.else [///artifact/versioning.#snapshot {///artifact/snapshot.#Local}
///artifact/versioning.#last_updated ///artifact/time.epoch
///artifact/versioning.#versions (list <default_version>)])))]
@@ -127,13 +127,13 @@
(def: .public (read repository artifact)
(-> (Repository Async) Artifact (Async (Try Metadata)))
(do async.monad
- [project (# repository download (..uri artifact))]
+ [project (at repository download (..uri artifact))]
(case project
{try.#Success project}
(in (|> project
(pipe.do try.monad
- [(# utf8.codec decoded)]
- [(# xml.codec decoded)]
+ [(at utf8.codec decoded)]
+ [(at xml.codec decoded)]
[list (<xml>.result ..parser)])))
{try.#Failure error}
@@ -145,6 +145,6 @@
(-> (Repository Async) Artifact Metadata (Async (Try Any)))
(|> metadata
..format
- (# xml.codec encoded)
- (# utf8.codec encoded)
- (# repository upload (..uri artifact))))
+ (at xml.codec encoded)
+ (at utf8.codec encoded)
+ (at repository upload (..uri artifact))))