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/aedifex.lux | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'stdlib/source/program/aedifex.lux')

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index b046a7ace..c84f57170 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -13,7 +13,7 @@
      [parser
       [environment (#+ Environment)]]
      [concurrency
-      ["." promise (#+ Promise) ("#\." monad)]]]
+      ["." async (#+ Async) ("#\." monad)]]]
     [data
      [binary (#+ Binary)]
      ["." text
@@ -65,15 +65,15 @@
     ["#/." deploy]]])
 
 (def: repositories
-  (-> /.Profile (List (Repository Promise)))
+  (-> /.Profile (List (Repository Async)))
   (|>> (get@ #/.repositories)
        set.to_list
        (list\map (|>> (/repository/remote.repository http.default #.None) /repository.async))))
 
 (def: (with_dependencies program console command profile)
   (All [a]
-    (-> (Program Promise) (Console Promise)
-        (-> (Console Promise) (Program Promise) (file.System Promise) (Shell Promise) Resolution (Command [Exit a]))
+    (-> (Program Async) (Console Async)
+        (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit a]))
         (Command a)))
   (do /action.monad
     [resolution (/command/deps.do! console
@@ -88,7 +88,7 @@
          (wrap [])
 
          _
-         (do promise.monad
+         (do async.monad
            [_ (\ program exit exit_code)]
            (wrap (#try.Failure ""))))]
     (wrap output)))
@@ -112,10 +112,10 @@
     (\ program.default exit shell.error)))
 
 (def: (command action)
-  (All [a] (-> (Promise (Try a)) (IO Any)))
-  (exec (do promise.monad
+  (All [a] (-> (Async (Try a)) (IO Any)))
+  (exec (do async.monad
           [outcome action]
-          (promise.future
+          (async.future
            (case outcome
              (#try.Success _)
              ..succeed!
@@ -175,10 +175,10 @@
                                         profile)
 
                    [#.None _]
-                   (promise\wrap (exception.throw /.no_identity []))
+                   (async\wrap (exception.throw /.no_identity []))
 
                    [_ #.None]
-                   (promise\wrap (exception.throw ..cannot_find_repository [repository (get@ #/.deploy_repositories profile)]))))
+                   (async\wrap (exception.throw ..cannot_find_repository [repository (get@ #/.deploy_repositories profile)]))))
                 
                 #/cli.Dependencies
                 (..command
-- 
cgit v1.2.3