diff options
Diffstat (limited to 'stdlib/source/program/compositor/export.lux')
-rw-r--r-- | stdlib/source/program/compositor/export.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux index 9fe95684e..f17feaf22 100644 --- a/stdlib/source/program/compositor/export.lux +++ b/stdlib/source/program/compositor/export.lux @@ -6,7 +6,7 @@ [control ["." try (#+ Try)] [concurrency - ["." promise (#+ Promise)]]] + ["." async (#+ Async)]]] [data ["." text ["%" format (#+ format)]] @@ -40,8 +40,8 @@ #tar.group commons})) (def: #export (library fs sources) - (-> (file.System Promise) (List Source) (Promise (Try tar.Tar))) - (do (try.with promise.monad) + (-> (file.System Async) (List Source) (Async (Try tar.Tar))) + (do (try.with async.monad) [files (io.enumerate fs sources)] (|> (dictionary.entries files) (monad.map try.monad @@ -60,11 +60,11 @@ ..no_ownership source_code]))))) (\ try.monad map row.of_list) - (\ promise.monad wrap)))) + (\ async.monad wrap)))) (def: #export (export fs [sources target]) - (-> (file.System Promise) Export (Promise (Try Any))) - (do {! (try.with promise.monad)} + (-> (file.System Async) Export (Async (Try Any))) + (do {! (try.with async.monad)} [tar (\ ! map (binary.run tar.writer) (..library fs sources))] (|> ..file |