diff options
| author | Eduardo Julian | 2022-07-03 00:35:32 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-07-03 00:35:32 -0400 |
| commit | 9e7ddacf853efd7a18c1911d2f287d483b083229 (patch) | |
| tree | 140eee091b7453879f072a48044635d03aa5096b /stdlib/source/program | |
| parent | 7e4c9ba2e02f06fa621ffe24bc0ca046536429ef (diff) | |
Added a new custom type for pattern-matching macros.
Diffstat (limited to 'stdlib/source/program')
| -rw-r--r-- | stdlib/source/program/aedifex.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/build.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/metadata/snapshot.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/repository/remote.lux | 4 |
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 []) _ |