diff options
Diffstat (limited to 'stdlib/source/program/aedifex/dependency/resolution.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/dependency/resolution.lux | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux index 84879b93d..62a85a974 100644 --- a/stdlib/source/program/aedifex/dependency/resolution.lux +++ b/stdlib/source/program/aedifex/dependency/resolution.lux @@ -82,19 +82,19 @@ (Exception [Artifact Extension Text]) (Async (Try (Maybe (Hash h)))))) (do async.monad - [?actual (at repository download (///repository/remote.uri version_template artifact extension))] + [?actual (of repository download (///repository/remote.uri version_template artifact extension))] (when ?actual {try.#Success actual} (in (do [! try.monad] - [output (at ! each (|>> ffi.as_string java/lang/String::trim ffi.of_string) - (at utf8.codec decoded actual)) + [output (of ! each (|>> ffi.as_string java/lang/String::trim ffi.of_string) + (of utf8.codec decoded actual)) actual (|> output (text.all_split_by " ") list.head (maybe.else output) - (at codec decoded)) + (of codec decoded)) _ (exception.assertion exception [artifact extension output] - (at ///hash.equivalence = (hash library) actual))] + (of ///hash.equivalence = (hash library) actual))] (in {.#Some actual}))) {try.#Failure error} @@ -103,7 +103,7 @@ (def (hashed repository version_template artifact extension) (-> (Repository Async) Version Artifact Extension (Async (Try [Binary Status]))) (do (try.with async.monad) - [data (at repository download (///repository/remote.uri version_template artifact extension)) + [data (of repository download (///repository/remote.uri version_template artifact extension)) ?sha1 (..verified_hash data repository version_template artifact (format extension ///artifact/extension.sha1) ///hash.sha1 ///hash.sha1_codec ..sha1_does_not_match) @@ -135,10 +135,10 @@ artifact (has ///artifact.#version artifact_version artifact)] [pom_data pom_status] (..hashed repository version_template artifact ///artifact/extension.pom) library_&_status (..hashed repository version_template artifact extension)] - (at async.monad in + (of async.monad in (do try.monad - [pom (at utf8.codec decoded pom_data) - pom (at xml.codec decoded pom) + [pom (of utf8.codec decoded pom_data) + pom (of xml.codec decoded pom) profile (<xml>.result ///pom.parser (list pom))] (in [///package.#origin {///repository/origin.#Remote ""} ///package.#library library_&_status @@ -164,11 +164,11 @@ (with_template [<sigil> <name> <doing> <at>] [(def (<name> console repository artifact) (-> (Console Async) (Repository Async) Artifact (Async (Try Any))) - (at console write (format "[" <sigil> "]" + (of console write (format "[" <sigil> "]" " " <doing> " " (///artifact.format artifact) " " <at> - " " (%.text (at repository description)) + " " (%.text (of repository description)) text.new_line)))] ["?" announce_fetching "Fetching" "from"] @@ -182,7 +182,7 @@ {.#End} (|> dependency (exception.except ..cannot_resolve) - (at async.monad in)) + (of async.monad in)) {.#Item repository alternatives} (do [! async.monad] @@ -211,7 +211,7 @@ resolution resolution]) (when dependencies {.#End} - (at async.monad in + (of async.monad in [successes failures resolution]) {.#Item head tail} @@ -234,7 +234,7 @@ {try.#Success package} (do ! [.let [redundant? (is (Predicate Dependency) - (predicate.or (at //.equivalence = head) + (predicate.or (of //.equivalence = head) (dictionary.key? resolution))) sub_dependencies (|> package ///package.dependencies |