aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/command/deploy
diff options
context:
space:
mode:
authorEduardo Julian2022-06-16 00:48:19 -0400
committerEduardo Julian2022-06-16 00:48:19 -0400
commit9e2f1e76f2c8df01ed7687d934c3210fcf676bd6 (patch)
tree115fab5bd8a5f53dc0d13ce5453095324a83496f /stdlib/source/program/aedifex/command/deploy
parentf92c806ee8da63f04bbefbf558f6249bacdb47ea (diff)
De-sigil-ification: suffix : [Part 13]
Diffstat (limited to 'stdlib/source/program/aedifex/command/deploy')
-rw-r--r--stdlib/source/program/aedifex/command/deploy/release.lux20
-rw-r--r--stdlib/source/program/aedifex/command/deploy/snapshot.lux4
2 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/program/aedifex/command/deploy/release.lux b/stdlib/source/program/aedifex/command/deploy/release.lux
index 667bbf1ee..b709680ad 100644
--- a/stdlib/source/program/aedifex/command/deploy/release.lux
+++ b/stdlib/source/program/aedifex/command/deploy/release.lux
@@ -67,13 +67,13 @@
"[1]::[0]"
("static" getProperty [java/lang/String] "io" "try" java/lang/String))
-(def: windows?
+(def windows?
(IO (Try Bit))
(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
+(def dummy_jar
Binary
(|> (packager.package (context.jvm "")
(dictionary.empty text.hash)
@@ -88,7 +88,7 @@
(undefined))))
(with_template [<name> <extension>]
- [(def: <name>
+ [(def <name>
(-> Text Text)
(text.suffix <extension>))]
@@ -100,7 +100,7 @@
)
(with_template [<name> <suffix>]
- [(def: <name>
+ [(def <name>
(-> Text Text)
(|>> (text.suffix <suffix>) ..jar))]
@@ -108,11 +108,11 @@
[sources "-sources"]
)
-(def: .public release?
+(def .public release?
(Predicate Artifact)
(|>> //snapshot.snapshot? not))
-(def: (install_dummies! program local fs artifact)
+(def (install_dummies! program local fs artifact)
(-> (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)]
@@ -121,18 +121,18 @@
_ (at local upload (..sources $artifact) ..dummy_jar)]
(in [])))
-(def: (signed it)
+(def (signed it)
(-> Text [Text Text])
[it (..asc it)])
-(def: (release_unsigned_artifact! local remote uri)
+(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)]
(in it)))
-(def: (release_signed_artifact! local remote [artifact signature])
+(def (release_signed_artifact! local remote [artifact signature])
(-> (Repository Async) (Repository Async) [Text Text] (Async (Try Any)))
(do [! ////action.monad]
[it (..release_unsigned_artifact! local remote artifact)
@@ -144,7 +144,7 @@
_ (..release_unsigned_artifact! local remote signature)]
(in [])))
-(def: .public (do! program shell console local remote fs artifact profile)
+(def .public (do! program shell console local remote fs artifact profile)
(-> (Program Async) (Shell Async) (Console Async) (Repository Async) (Repository Async) (file.System Async) Artifact (Command Any))
(do [! ////action.monad]
[_ (///install.do! console fs local profile)
diff --git a/stdlib/source/program/aedifex/command/deploy/snapshot.lux b/stdlib/source/program/aedifex/command/deploy/snapshot.lux
index 37fc9a19b..dcfdc3ba4 100644
--- a/stdlib/source/program/aedifex/command/deploy/snapshot.lux
+++ b/stdlib/source/program/aedifex/command/deploy/snapshot.lux
@@ -39,12 +39,12 @@
["[1][0]" artifact (.only Artifact)
["[1]/[0]" type]]])
-(def: .public snapshot?
+(def .public snapshot?
(Predicate Artifact)
(|>> (the ////artifact.#version)
(text.contains? "-SNAPSHOT")))
-(def: .public (do! console remote fs artifact profile)
+(def .public (do! console remote fs artifact profile)
(-> (Console Async) (Repository Async) (file.System Async) Artifact (Command Any))
(do [! ////action.monad]
[library (|> profile