diff options
author | Eduardo Julian | 2022-06-04 19:34:42 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-06-04 19:34:42 -0400 |
commit | f9e33ae96aec4741385a576719786092c9e68043 (patch) | |
tree | 140057dfc054346eab721f9905f0f0fff22ad933 /stdlib/source/program/aedifex/command/deploy | |
parent | 56d2835d35093e2d92c5e8a4371aa322b55e037b (diff) |
De-sigil-ification: #
Diffstat (limited to 'stdlib/source/program/aedifex/command/deploy')
-rw-r--r-- | stdlib/source/program/aedifex/command/deploy/release.lux | 36 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/deploy/snapshot.lux | 8 |
2 files changed, 22 insertions, 22 deletions
diff --git a/stdlib/source/program/aedifex/command/deploy/release.lux b/stdlib/source/program/aedifex/command/deploy/release.lux index 2f7d1e4d7..b6d93b30b 100644 --- a/stdlib/source/program/aedifex/command/deploy/release.lux +++ b/stdlib/source/program/aedifex/command/deploy/release.lux @@ -70,9 +70,9 @@ (def: windows? (IO (Try Bit)) - (# (try.with io.monad) each - (|>> java/lang/String::toLowerCase ffi.of_string (text.starts_with? "windows")) - (java/lang/System::getProperty (ffi.as_string "os.name")))) + (at (try.with io.monad) each + (|>> java/lang/String::toLowerCase ffi.of_string (text.starts_with? "windows")) + (java/lang/System::getProperty (ffi.as_string "os.name")))) (def: dummy_jar Binary @@ -117,9 +117,9 @@ (-> (Program Async) (Repository Async) (file.System Async) Artifact (Async (Try Any))) (do (try.with async.monad) [.let [$artifact (////artifact.uri (the ////artifact.#version artifact) artifact)] - _ (# local upload (..jar $artifact) ..dummy_jar) - _ (# local upload (..javadoc $artifact) ..dummy_jar) - _ (# local upload (..sources $artifact) ..dummy_jar)] + _ (at local upload (..jar $artifact) ..dummy_jar) + _ (at local upload (..javadoc $artifact) ..dummy_jar) + _ (at local upload (..sources $artifact) ..dummy_jar)] (in []))) (def: (signed it) @@ -129,8 +129,8 @@ (def: (release_unsigned_artifact! local remote uri) (-> (Repository Async) (Repository Async) Text (Async (Try Binary))) (do [! ////action.monad] - [it (# local download uri) - _ (# remote upload uri it)] + [it (at local download uri) + _ (at remote upload uri it)] (in it))) (def: (release_signed_artifact! local remote [artifact signature]) @@ -139,9 +139,9 @@ [it (..release_unsigned_artifact! local remote artifact) _ (|> it ////hash.md5 - (# ////hash.md5_codec encoded) - (# utf8.codec encoded) - (# remote upload (..md5 artifact))) + (at ////hash.md5_codec encoded) + (at utf8.codec encoded) + (at remote upload (..md5 artifact))) _ (..release_unsigned_artifact! local remote signature)] (in []))) @@ -150,19 +150,19 @@ (do [! ////action.monad] [_ (///install.do! console fs local profile) _ (install_dummies! program local fs artifact) - .let [working_directory (# program directory) + .let [working_directory (at program directory) @root (////repository/local.root program fs) $bundle (////artifact.bundle (the ////artifact.#version artifact) artifact) - / (# fs separator) + / (at fs separator) @local (%.format @root / $bundle)] windows? (async.future ..windows?) process (is (Async (Try (shell.Process Async))) - (# shell execute [environment.empty @local - (if windows? - ["cmd" (list "/c" "for %file in (.\*) do gpg.exe -ab %file")] - ["sh" (list "-c" "for file in *.*; do gpg -ab $file; done")])])) + (at shell execute [environment.empty @local + (if windows? + ["cmd" (list "/c" "for %file in (.\*) do gpg.exe -ab %file")] + ["sh" (list "-c" "for file in *.*; do gpg -ab $file; done")])])) exit (is (Async (Try shell.Exit)) - (# process await [])) + (at process await [])) .let [$artifact (////artifact.uri (the ////artifact.#version artifact) artifact)] _ (monad.each ! (release_signed_artifact! local remote) (list (..signed (..pom $artifact)) diff --git a/stdlib/source/program/aedifex/command/deploy/snapshot.lux b/stdlib/source/program/aedifex/command/deploy/snapshot.lux index 90251c3bd..1fd2c8793 100644 --- a/stdlib/source/program/aedifex/command/deploy/snapshot.lux +++ b/stdlib/source/program/aedifex/command/deploy/snapshot.lux @@ -50,14 +50,14 @@ (the /.#sources) set.list (export.library fs) - (# ! each (binary.result tar.writer))) - pom (# async.monad in (////pom.write profile)) + (at ! each (binary.result tar.writer))) + pom (at async.monad in (////pom.write profile)) _ (////dependency/deployment.one remote [artifact ////artifact/type.lux_library] (let [pom_data (|> pom - (# xml.codec encoded) - (# utf8.codec encoded))] + (at xml.codec encoded) + (at utf8.codec encoded))] [////package.#origin {////repository/origin.#Remote ""} ////package.#library [library (////dependency/status.verified library)] |