diff options
Diffstat (limited to 'stdlib/source/program/aedifex/command/build.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/command/build.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux index d08f7f7b1..0454a4a60 100644 --- a/stdlib/source/program/aedifex/command/build.lux +++ b/stdlib/source/program/aedifex/command/build.lux @@ -122,7 +122,7 @@ (def: (path fs home dependency) (All (_ !) (-> (file.System !) Path Dependency Path)) - (let [/ (# fs separator) + (let [/ (at fs separator) artifact (the ///dependency.#artifact dependency)] (|> artifact (///local.uri (the ///artifact.#version artifact)) @@ -178,7 +178,7 @@ version (the ///artifact.#version artifact)] (case (dictionary.value identity uniques) {.#Some [current_version current_path]} - (if (# version_order < version current_version) + (if (at version_order < version current_version) (dictionary.has identity [version dependency] uniques) uniques) @@ -212,7 +212,7 @@ (let [[read! write!] (is [(Async (Try Any)) (async.Resolver (Try Any))] (async.async [])) - _ (|> (# process <capability> []) + _ (|> (at process <capability> []) (async.upon! (function (again ?line) (case ?line {try.#Failure error} @@ -229,7 +229,7 @@ {try.#Success _} (async.upon! again - (# process <capability> [])))) + (at process <capability> [])))) (is (Async (Try Any)) (console.write_line line console)))))) io.run!)] @@ -287,8 +287,8 @@ {.#Some program_module} (do async.monad [environment (program.environment async.monad program) - .let [home (# program home) - working_directory (# program directory)]] + .let [home (at program home) + working_directory (at program directory)]] (do ///action.monad [[resolution lux] (async#in (..lux resolution (the ///.#lux profile))) .let [host_dependencies (..host_dependencies fs home resolution) @@ -310,7 +310,7 @@ [#Python ///.#java "program.py"] [#Lua ///.#java "program.lua"] [#Ruby ///.#java (file.rooted fs "program" ruby_packager.main_file)])) - / (# fs separator) + / (at fs separator) cache_directory (format working_directory / target)] _ (is (Async (Try Any)) (console.write_line ..start console)) @@ -323,13 +323,13 @@ (..singular "--target" cache_directory) (..singular "--module" program_module) (..singular "--configuration" (configuration.format (the ///.#configuration profile)))))] - process (# shell execute [(dictionary.composite environment command_environment) - working_directory - command - full_parameters]) + process (at shell execute [(dictionary.composite environment command_environment) + working_directory + command + full_parameters]) _ (..log_output! console process) _ (..log_error! console process) - exit (# process await []) + exit (at process await []) _ (is (Async (Try Any)) (console.write_line (if (i.= shell.normal exit) ..success |