Re-named Promise to Async.

1 files changed, 9 insertions, 9 deletions

diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux
index 2460215b4..a80193663 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -6,7 +6,7 @@
     [control
      ["." try (#+ Try)]
      [concurrency
-      ["." promise (#+ Promise)]]]
+      ["." async (#+ Async)]]]
     [data
      [collection
       ["." list]
@@ -26,8 +26,8 @@
      [resolution (#+ Resolution)]]]])
 
 (def: (targets fs path)
-  (-> (file.System Promise) file.Path (Promise (List file.Path)))
-  (let [! promise.monad]
+  (-> (file.System Async) file.Path (Async (List file.Path)))
+  (let [! async.monad]
     (|> path
         (\ fs sub_directories)
         (\ ! map (|>> (try.default (list))
@@ -40,18 +40,18 @@
   1,000)
 
 (def: (pause delay)
-  (-> Nat (Promise (Try Any)))
-  (promise.delay delay (#try.Success [])))
+  (-> Nat (Async (Try Any)))
+  (async.delay delay (#try.Success [])))
 
 (def: #export (do! delay watcher command)
   (All [a]
-    (-> Nat (Watcher Promise)
-        (-> (Console Promise) (Program Promise) (file.System Promise) (Shell Promise) Resolution (Command [Exit a]))
-        (-> (Console Promise) (Program Promise) (file.System Promise) (Shell Promise) Resolution (Command [Exit Any]))))
+    (-> Nat (Watcher Async)
+        (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit a]))
+        (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit Any]))))
   (function (_ console program fs shell resolution)
     (function (_ profile)
       (with_expansions [<call> ((command console program fs shell resolution) profile)]
-        (do {! promise.monad}
+        (do {! async.monad}
           [targets (|> profile
                        (get@ #///.sources)
                        set.to_list