diff options
Diffstat (limited to 'stdlib/source/program/compositor/import.lux')
| -rw-r--r-- | stdlib/source/program/compositor/import.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux index 4edb82a5e..db46d6c13 100644 --- a/stdlib/source/program/compositor/import.lux +++ b/stdlib/source/program/compositor/import.lux @@ -7,7 +7,7 @@ ["." try (#+ Try)] ["." exception (#+ exception:)] [concurrency - ["." promise (#+ Promise) ("#\." monad)]] + ["." async (#+ Async) ("#\." monad)]] ["<>" parser ["<.>" binary]]] [data @@ -30,7 +30,7 @@ [cli (#+ Library)]]) (def: Action - (type (All [a] (Promise (Try a))))) + (type (All [a] (Async (Try a))))) (exception: #export useless_tar_entry) @@ -43,8 +43,8 @@ (Dictionary file.Path Binary)) (def: (import_library system library import) - (-> (file.System Promise) Library Import (Action Import)) - (let [! promise.monad] + (-> (file.System Async) Library Import (Action Import)) + (let [! async.monad] (|> library (\ system read) (\ ! map (let [! try.monad] @@ -68,9 +68,9 @@ (\ ! join))))))) (def: #export (import system libraries) - (-> (file.System Promise) (List Library) (Action Import)) + (-> (file.System Async) (List Library) (Action Import)) (monad.fold (: (Monad Action) - (try.with promise.monad)) + (try.with async.monad)) (..import_library system) (dictionary.new text.hash) libraries)) |