diff options
Diffstat (limited to 'stdlib/source/program/aedifex/command')
-rw-r--r-- | stdlib/source/program/aedifex/command/build.lux | 14 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/clean.lux | 2 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/deploy.lux | 2 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/deps.lux | 2 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/install.lux | 2 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/pom.lux | 2 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/test.lux | 4 |
7 files changed, 14 insertions, 14 deletions
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux index b5df31411..6a0b6bcd0 100644 --- a/stdlib/source/program/aedifex/command/build.lux +++ b/stdlib/source/program/aedifex/command/build.lux @@ -104,10 +104,10 @@ [#Ruby ..ruby_compiler_name]) _ - (exception.throw ..no_available_compiler [])) + (exception.except ..no_available_compiler [])) _ - (exception.throw ..no_available_compiler [])))) + (exception.except ..no_available_compiler [])))) (def: (path fs home dependency) (All [!] (-> (file.System !) Path Dependency Path)) @@ -266,7 +266,7 @@ (let [target (get@ #///.target profile)] (case (get@ #///.program profile) #.None - (async\wrap (exception.throw ..no_specified_program [])) + (async\in (exception.except ..no_specified_program [])) (#.Some program_module) (do async.monad @@ -274,7 +274,7 @@ #let [home (\ program home) working_directory (\ program directory)]] (do ///action.monad - [[resolution compiler] (async\wrap (..compiler resolution (get@ #///.compiler profile))) + [[resolution compiler] (async\in (..compiler resolution (get@ #///.compiler profile))) #let [host_dependencies (..host_dependencies fs home resolution) [[command compiler_params] output] (case compiler (#JVM dependency) @@ -313,6 +313,6 @@ ..success ..failure) console)] - (wrap [exit - compiler - (format cache_directory / output)]))))))) + (in [exit + compiler + (format cache_directory / output)]))))))) diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux index 2ff701d2b..c7443beb6 100644 --- a/stdlib/source/program/aedifex/command/clean.lux +++ b/stdlib/source/program/aedifex/command/clean.lux @@ -45,5 +45,5 @@ (\ ! map (monad.map ! recur)) (\ ! join))] (\ fs delete root))) - (\ ! wrap [])))] + (\ ! in [])))] (console.write_line (..success target) console))) diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux index 79f6e4f2f..9e74a53a5 100644 --- a/stdlib/source/program/aedifex/command/deploy.lux +++ b/stdlib/source/program/aedifex/command/deploy.lux @@ -64,7 +64,7 @@ set.to_list (export.library fs) (\ ! map (binary.run tar.writer))) - pom (\ async.monad wrap (///pom.write profile)) + pom (\ async.monad in (///pom.write profile)) _ (///dependency/deployment.one repository [artifact ///artifact/type.lux_library] diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux index 7e0d655e9..434bedbdd 100644 --- a/stdlib/source/program/aedifex/command/deps.lux +++ b/stdlib/source/program/aedifex/command/deps.lux @@ -74,4 +74,4 @@ (list.sort (\ ///dependency.order <)) (exception.enumerate ..format))]) console)] - (wrap resolution)))) + (in resolution)))) diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux index 142829a8c..ddc73ca36 100644 --- a/stdlib/source/program/aedifex/command/install.lux +++ b/stdlib/source/program/aedifex/command/install.lux @@ -60,7 +60,7 @@ (export.library fs)) pom (|> profile ///pom.write - (\ async.monad wrap)) + (\ async.monad in)) _ (///dependency/deployment.one repository [identity ///artifact/type.lux_library] (let [pom_data (|> pom diff --git a/stdlib/source/program/aedifex/command/pom.lux b/stdlib/source/program/aedifex/command/pom.lux index 73e10f0fc..3b6412070 100644 --- a/stdlib/source/program/aedifex/command/pom.lux +++ b/stdlib/source/program/aedifex/command/pom.lux @@ -31,6 +31,6 @@ [content (|> (///pom.write profile) (try\map (|>> (\ xml.codec encode) (\ utf8.codec encode))) - async\wrap) + async\in) _ (\ fs write content ///pom.file)] (console.write_line ..success console))) diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux index e159a48f2..7af6a4351 100644 --- a/stdlib/source/program/aedifex/command/test.lux +++ b/stdlib/source/program/aedifex/command/test.lux @@ -67,5 +67,5 @@ ..success ..failure) console)] - (wrap [exit []])) - (wrap [build_exit []]))))) + (in [exit []])) + (in [build_exit []]))))) |