diff options
Diffstat (limited to 'stdlib/source/program/aedifex/dependency')
| -rw-r--r-- | stdlib/source/program/aedifex/dependency/deployment.lux | 16 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/dependency/resolution.lux | 10 |
2 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux index f55520ec1..735ec1ebd 100644 --- a/stdlib/source/program/aedifex/dependency/deployment.lux +++ b/stdlib/source/program/aedifex/dependency/deployment.lux @@ -44,12 +44,12 @@ (-> (Repository Async) ///artifact.Version Dependency [Binary Status] (Async (Try Any))) (let [artifact (format (///artifact.uri version_template artifact) (///artifact/extension.extension type)) - deploy_hash (: (All (_ h) (-> (Codec Text (Hash h)) Extension (Hash h) (Async (Try Any)))) - (function (_ codec extension hash) - (|> hash - (# codec encoded) - (# utf8.codec encoded) - (# repository upload (format artifact extension)))))] + deploy_hash (is (All (_ h) (-> (Codec Text (Hash h)) Extension (Hash h) (Async (Try Any)))) + (function (_ codec extension hash) + (|> hash + (# codec encoded) + (# utf8.codec encoded) + (# repository upload (format artifact extension)))))] (do [! (try.with async.monad)] [_ (# repository upload artifact data)] (case status @@ -89,8 +89,8 @@ (def: (update_snapshot [artifact type] now snapshot) (-> Dependency Instant Metadata (Try Metadata)) (do try.monad - [now (: (Try ///artifact/time.Time) - (///artifact/time.of_instant now)) + [now (is (Try ///artifact/time.Time) + (///artifact/time.of_instant now)) .let [version_template (the ///artifact.#version artifact) snapshot (|> snapshot (revised [///metadata/snapshot.#versioning ///artifact/versioning.#snapshot] diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux index 67dbfc37c..45d275527 100644 --- a/stdlib/source/program/aedifex/dependency/resolution.lux +++ b/stdlib/source/program/aedifex/dependency/resolution.lux @@ -204,8 +204,8 @@ (List Dependency) Resolution])) (loop [repositories repositories - successes (: (List Dependency) (list)) - failures (: (List Dependency) (list)) + successes (is (List Dependency) (list)) + failures (is (List Dependency) (list)) dependencies dependencies resolution resolution] (case dependencies @@ -231,9 +231,9 @@ (case ?package {try.#Success package} (do ! - [.let [redundant? (: (Predicate Dependency) - (predicate.or (# //.equivalence = head) - (dictionary.key? resolution))) + [.let [redundant? (is (Predicate Dependency) + (predicate.or (# //.equivalence = head) + (dictionary.key? resolution))) sub_dependencies (|> package ///package.dependencies (try#each (|>> set.list |