diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 14 | ||||
| -rw-r--r-- | stdlib/source/program/compositor/export.lux | 12 | ||||
| -rw-r--r-- | stdlib/source/program/compositor/import.lux | 14 |
3 files changed, 20 insertions, 20 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 783502215..840b06e2d 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -10,7 +10,7 @@ ["[0]" io {"+" [IO io]}] ["[0]" try {"+" [Try]}] [concurrency - ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]] + ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]]] [data [binary {"+" [Binary]}] ["[0]" product] @@ -67,7 +67,7 @@ (exec (debug.log! (format text.new_line failure_description text.new_line error text.new_line)) - (io.run! (\ world/program.default exit +1))) + (io.run! (# world/program.default exit +1))) {try.#Success output} (in output)))) @@ -88,10 +88,10 @@ (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Static Archive Context (Async (Try Any))) (case (packager host_dependencies archive context) {try.#Success content} - (\ fs write content package) + (# fs write content package) {try.#Failure error} - (\ async.monad in {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)))) @@ -106,7 +106,7 @@ {.#Item head tail} (do ! - [content (\ fs read head)] + [content (# fs read head)] (recur tail (dictionary.has head content output))))))) @@ -153,7 +153,7 @@ (Async (Try [Archive (directive.State+ <parameters>)])) (:expected (platform.compile phase_wrapper import static expander platform compilation [archive state]))) _ (ioW.freeze (value@ platform.#&file_system platform) static archive) - program_context (async\in ($/program.context archive)) + program_context (async#in ($/program.context archive)) host_dependencies (..load_host_dependencies (value@ platform.#&file_system platform) compilation_host_dependencies) _ (..package! (for [@.old (file.async file.default) @.jvm (file.async file.default) @@ -179,6 +179,6 @@ ... (do [! async.monad] ... [console (|> console.default ... async.future - ... (\ ! each (|>> try.trusted console.async)))] + ... (# ! each (|>> try.trusted console.async)))] ... (interpreter.run! (try.with async.monad) console platform interpretation generation_bundle))) )))) diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux index 90234875a..117c52251 100644 --- a/stdlib/source/program/compositor/export.lux +++ b/stdlib/source/program/compositor/export.lux @@ -48,7 +48,7 @@ (function (_ [path source_code]) (do try.monad [path (|> path - (text.replaced (\ fs separator) .module_separator) + (text.replaced (# fs separator) .module_separator) tar.path) source_code (tar.content source_code)] (in {tar.#Normal [path @@ -59,14 +59,14 @@ tar.read_by_other) ..no_ownership source_code]})))) - (\ try.monad each row.of_list) - (\ async.monad in)))) + (# try.monad each row.of_list) + (# async.monad in)))) (def: .public (export fs [sources target]) (-> (file.System Async) Export (Async (Try Any))) (do [! (try.with async.monad)] - [tar (\ ! each (binary.result tar.writer) + [tar (# ! each (binary.result tar.writer) (..library fs sources))] (|> ..file - (format target (\ fs separator)) - (\ fs write tar)))) + (format target (# fs separator)) + (# fs write tar)))) diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux index 9b84e22c6..0e41d66a9 100644 --- a/stdlib/source/program/compositor/import.lux +++ b/stdlib/source/program/compositor/import.lux @@ -7,7 +7,7 @@ ["[0]" try {"+" [Try]}] ["[0]" exception {"+" [exception:]}] [concurrency - ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]] + ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]] ["<>" parser ["<[0]>" binary]]] [data @@ -47,11 +47,11 @@ (-> (file.System Async) Library Import (Action Import)) (let [! async.monad] (|> library - (\ system read) - (\ ! each (let [! try.monad] - (|>> (\ ! each (<binary>.result tar.parser)) - (\ ! conjoint) - (\ ! each (|>> row.list + (# system read) + (# ! each (let [! try.monad] + (|>> (# ! each (<binary>.result tar.parser)) + (# ! conjoint) + (# ! each (|>> row.list (monad.mix ! (function (_ entry import) (case entry {tar.#Normal [path instant mode ownership content]} @@ -66,7 +66,7 @@ _ (exception.except ..useless_tar_entry []))) import))) - (\ ! conjoint))))))) + (# ! conjoint))))))) (def: .public (import system libraries) (-> (file.System Async) (List Library) (Action Import)) |