diff options
| author | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
| commit | 94e5802f594a73245fce0fbd885103b8bf210d57 (patch) | |
| tree | 65e5799c0be40f5f015b39bfa6c87c9c27fd9424 /stdlib/source/program/aedifex/command/build.lux | |
| parent | b491dfff00219d5206075ea65468e00ab657075d (diff) | |
Added some simple time-series handling machinery.
Diffstat (limited to 'stdlib/source/program/aedifex/command/build.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/command/build.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux index 107ae46a4..71c87d8ce 100644 --- a/stdlib/source/program/aedifex/command/build.lux +++ b/stdlib/source/program/aedifex/command/build.lux @@ -121,7 +121,7 @@ (def (path fs home dependency) (All (_ !) (-> (file.System !) Path Dependency Path)) - (let [/ (at fs separator) + (let [/ (of fs separator) artifact (the ///dependency.#artifact dependency)] (|> artifact (///local.uri (the ///artifact.#version artifact)) @@ -177,7 +177,7 @@ version (the ///artifact.#version artifact)] (when (dictionary.value identity uniques) {.#Some [current_version current_path]} - (if (at version_order < version current_version) + (if (of version_order < version current_version) (dictionary.has identity [version dependency] uniques) uniques) @@ -211,7 +211,7 @@ (let [[read! write!] (is [(Async (Try Any)) (async.Resolver (Try Any))] (async.async [])) - _ (|> (at process <capability> []) + _ (|> (of process <capability> []) (async.upon! (function (again ?line) (when ?line {try.#Failure error} @@ -228,7 +228,7 @@ {try.#Success _} (async.upon! again - (at process <capability> [])))) + (of process <capability> [])))) (is (Async (Try Any)) (console.write_line line console)))))) io.run!)] @@ -285,8 +285,8 @@ {.#Some [program_module program_definition]} (do async.monad - [.let [home (at environment home) - working_directory (at environment directory)] + [.let [home (of environment home) + working_directory (of environment directory)] environment (environment.environment async.monad environment)] (do ///action.monad [[resolution lux] (async#in (..lux resolution (the ///.#lux profile))) @@ -309,7 +309,7 @@ [#Python ///.#java "program.py"] [#Lua ///.#java "program.lua"] [#Ruby ///.#java (file.rooted fs "program" ruby_packager.main_file)])) - / (at fs separator) + / (of fs separator) cache_directory (format working_directory / target)] _ (is (Async (Try Any)) (console.write_line ..start console)) @@ -325,13 +325,13 @@ _ (list#composite (..singular "--module" program_module) (..singular "--program" program_definition))) (..singular "--configuration" (configuration.format (the ///.#configuration profile)))))] - process (at shell execute [(dictionary.composite environment command_environment) + process (of shell execute [(dictionary.composite environment command_environment) working_directory command full_parameters]) _ (..log_output! console process) _ (..log_error! console process) - exit (at process await []) + exit (of process await []) _ (is (Async (Try Any)) (console.write_line (if (i.= shell.normal exit) ..success |