From e64b6d0114c26a455e19a416b5f02a4d19dd711f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 26 Jul 2021 01:45:57 -0400
Subject: Re-named Promise to Async.

---
 stdlib/source/program/compositor/export.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/program/compositor/export.lux')

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
-- 
cgit v1.2.3