diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 14 | ||||
| -rw-r--r-- | stdlib/source/program/compositor/export.lux | 18 | ||||
| -rw-r--r-- | stdlib/source/program/compositor/import.lux | 4 |
3 files changed, 18 insertions, 18 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 8d9874216..c804d86b0 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -70,7 +70,7 @@ (io.run (\ world/program.default exit +1))) (#try.Success output) - (wrap output)))) + (in output)))) (def: (timed process) (All [a] @@ -82,7 +82,7 @@ (instant.span start) %.duration (format "Duration: ")))]] - (wrap output))) + (in output))) (def: (package! fs host_dependencies [packager package] static archive context) (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Static Archive Context (Async (Try Any))) @@ -91,7 +91,7 @@ (\ fs write content package) (#try.Failure error) - (\ async.monad wrap (#try.Failure error)))) + (\ async.monad in (#try.Failure error)))) (def: (load_host_dependencies fs host_dependencies) (-> (file.System Async) (List file.Path) (Async (Try (Dictionary file.Path Binary)))) @@ -102,7 +102,7 @@ (dictionary.new text.hash))] (case pending #.Nil - (wrap output) + (in output) (#.Cons head tail) (do ! @@ -152,7 +152,7 @@ (Async (Try [Archive (directive.State+ <parameters>)])) (:assume (platform.compile import static expander platform compilation [archive state]))) _ (ioW.freeze (get@ #platform.&file_system platform) static archive) - program_context (async\wrap ($/program.context archive)) + program_context (async\in ($/program.context archive)) host_dependencies (..load_host_dependencies (get@ #platform.&file_system platform) compilation_host_dependencies) _ (..package! (for {@.old (file.async file.default) @.jvm (file.async file.default) @@ -162,14 +162,14 @@ static archive program_context)] - (wrap (debug.log! "Compilation complete!")))) + (in (debug.log! "Compilation complete!")))) (#/cli.Export export) (<| (or_crash! "Export failed:") (do (try.with async.monad) [_ (/export.export (get@ #platform.&file_system platform) export)] - (wrap (debug.log! "Export complete!")))) + (in (debug.log! "Export complete!")))) (#/cli.Interpretation interpretation) ## TODO: Fix the interpreter... diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux index f17feaf22..46cf9c8ec 100644 --- a/stdlib/source/program/compositor/export.lux +++ b/stdlib/source/program/compositor/export.lux @@ -51,16 +51,16 @@ (text.replace_all (\ fs separator) .module_separator) tar.path) source_code (tar.content source_code)] - (wrap (#tar.Normal [path - (instant.of_millis +0) - ($_ tar.and - tar.read_by_owner tar.write_by_owner - tar.read_by_group tar.write_by_group - tar.read_by_other) - ..no_ownership - source_code]))))) + (in (#tar.Normal [path + (instant.of_millis +0) + ($_ tar.and + tar.read_by_owner tar.write_by_owner + tar.read_by_group tar.write_by_group + tar.read_by_other) + ..no_ownership + source_code]))))) (\ try.monad map row.of_list) - (\ async.monad wrap)))) + (\ async.monad in)))) (def: #export (export fs [sources target]) (-> (file.System Async) Export (Async (Try Any))) diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux index db46d6c13..1e9145bdb 100644 --- a/stdlib/source/program/compositor/import.lux +++ b/stdlib/source/program/compositor/import.lux @@ -57,13 +57,13 @@ (let [path (tar.from_path path)] (case (dictionary.try_put path (tar.data content) import) (#try.Failure error) - (exception.throw ..duplicate [library path]) + (exception.except ..duplicate [library path]) import' import')) _ - (exception.throw ..useless_tar_entry []))) + (exception.except ..useless_tar_entry []))) import))) (\ ! join))))))) |