aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/compositor
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/compositor.lux14
-rw-r--r--stdlib/source/program/compositor/export.lux12
-rw-r--r--stdlib/source/program/compositor/import.lux14
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))