diff options
Diffstat (limited to 'stdlib/source/program/compositor.lux')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 14 |
1 files changed, 7 insertions, 7 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))) )))) |