aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/command/deploy
diff options
context:
space:
mode:
authorEduardo Julian2022-06-04 19:34:42 -0400
committerEduardo Julian2022-06-04 19:34:42 -0400
commitf9e33ae96aec4741385a576719786092c9e68043 (patch)
tree140057dfc054346eab721f9905f0f0fff22ad933 /stdlib/source/program/aedifex/command/deploy
parent56d2835d35093e2d92c5e8a4371aa322b55e037b (diff)
De-sigil-ification: #
Diffstat (limited to 'stdlib/source/program/aedifex/command/deploy')
-rw-r--r--stdlib/source/program/aedifex/command/deploy/release.lux36
-rw-r--r--stdlib/source/program/aedifex/command/deploy/snapshot.lux8
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)]