diff options
Diffstat (limited to 'stdlib/source/program/aedifex/command/deploy/release.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/command/deploy/release.lux | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/stdlib/source/program/aedifex/command/deploy/release.lux b/stdlib/source/program/aedifex/command/deploy/release.lux index eb0e4d3ec..c159555b9 100644 --- a/stdlib/source/program/aedifex/command/deploy/release.lux +++ b/stdlib/source/program/aedifex/command/deploy/release.lux @@ -70,7 +70,7 @@ (def windows? (IO (Try Bit)) - (at (try.with io.monad) each + (of (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")))) @@ -118,9 +118,9 @@ (-> (Environment Async) (Repository Async) (file.System Async) Artifact (Async (Try Any))) (do (try.with async.monad) [.let [$artifact (////artifact.uri (the ////artifact.#version artifact) artifact)] - _ (at local upload (..jar $artifact) ..dummy_jar) - _ (at local upload (..javadoc $artifact) ..dummy_jar) - _ (at local upload (..sources $artifact) ..dummy_jar)] + _ (of local upload (..jar $artifact) ..dummy_jar) + _ (of local upload (..javadoc $artifact) ..dummy_jar) + _ (of local upload (..sources $artifact) ..dummy_jar)] (in []))) (def (signed it) @@ -130,8 +130,8 @@ (def (release_unsigned_artifact! local remote uri) (-> (Repository Async) (Repository Async) Text (Async (Try Binary))) (do [! ////action.monad] - [it (at local download uri) - _ (at remote upload uri it)] + [it (of local download uri) + _ (of remote upload uri it)] (in it))) (def (release_signed_artifact! local remote [artifact signature]) @@ -140,14 +140,14 @@ [it (..release_unsigned_artifact! local remote artifact) _ (|> it ////hash.md5 - (at ////hash.md5_codec encoded) - (at utf8.codec encoded) - (at remote upload (..md5 artifact))) + (of ////hash.md5_codec encoded) + (of utf8.codec encoded) + (of remote upload (..md5 artifact))) _ (|> it ////hash.sha1 - (at ////hash.sha1_codec encoded) - (at utf8.codec encoded) - (at remote upload (..sha1 artifact))) + (of ////hash.sha1_codec encoded) + (of utf8.codec encoded) + (of remote upload (..sha1 artifact))) _ (..release_unsigned_artifact! local remote signature)] (in []))) @@ -158,16 +158,16 @@ _ (install_dummies! environment local fs artifact) .let [@root (////repository/local.root environment fs) $bundle (////artifact.bundle (the ////artifact.#version artifact) artifact) - / (at fs separator) + / (of fs separator) @local (%.format @root / $bundle)] windows? (async.future ..windows?) process (is (Async (Try (shell.Process Async))) - (at shell execute [environment.empty @local + (of 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)) - (at process await [])) + (of process await [])) .let [$artifact (////artifact.uri (the ////artifact.#version artifact) artifact)] _ (monad.each ! (release_signed_artifact! local remote) (list (..signed (..pom $artifact)) |