diff options
Diffstat (limited to 'stdlib/source/program/aedifex/metadata')
| -rw-r--r-- | stdlib/source/program/aedifex/metadata/artifact.lux | 12 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/metadata/snapshot.lux | 30 |
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)))) |