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