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/import.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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

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