aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex
diff options
context:
space:
mode:
authorEduardo Julian2022-07-03 00:35:32 -0400
committerEduardo Julian2022-07-03 00:35:32 -0400
commit9e7ddacf853efd7a18c1911d2f287d483b083229 (patch)
tree140eee091b7453879f072a48044635d03aa5096b /stdlib/source/program/aedifex
parent7e4c9ba2e02f06fa621ffe24bc0ca046536429ef (diff)
Added a new custom type for pattern-matching macros.
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/aedifex.lux2
-rw-r--r--stdlib/source/program/aedifex/command/build.lux2
-rw-r--r--stdlib/source/program/aedifex/metadata/snapshot.lux2
-rw-r--r--stdlib/source/program/aedifex/repository/remote.lux4
4 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index 044ca9e4d..319ed87ad 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -87,7 +87,7 @@
profile)
[exit_code output] ((command console program (file.async file.default) (shell.async shell.default) resolution) profile)
_ (case exit_code
- (pattern (static shell.normal))
+ (static shell.normal)
(in [])
_
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index 38738e400..b20dd16a6 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -105,7 +105,7 @@
{.#Some dependency}
(case lux_name
(^.with_template [<tag> <name>]
- [(pattern (static <name>))
+ [(static <name>)
{try.#Success [(..remove_dependency dependency resolution)
{<tag> dependency}]}])
([#JVM ..jvm_lux_name]
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index c524ddefb..78b0e8c55 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -99,7 +99,7 @@
(is (-> (List ///artifact/snapshot/version.Version)
(List ///artifact/snapshot/version.Version))
(|>> (pipe.case
- (pattern (list))
+ (list)
(list <default_version>)
versions
diff --git a/stdlib/source/program/aedifex/repository/remote.lux b/stdlib/source/program/aedifex/repository/remote.lux
index 75d9a3468..9d5a0f134 100644
--- a/stdlib/source/program/aedifex/repository/remote.lux
+++ b/stdlib/source/program/aedifex/repository/remote.lux
@@ -69,7 +69,7 @@
{.#None}
http))]
(case status
- (pattern (static http/status.ok))
+ (static http/status.ok)
(at ! each product.right ((the @http.#body message) {.#None}))
_
@@ -92,7 +92,7 @@
http))
_ ((the @http.#body message) {.#Some 0})]
(case status
- (pattern (static http/status.created))
+ (static http/status.created)
(in [])
_