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.

---
 .../source/program/aedifex/dependency/deployment.lux   | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux
index 150055cf3..3a7cba41f 100644
--- a/stdlib/source/program/aedifex/dependency/deployment.lux
+++ b/stdlib/source/program/aedifex/dependency/deployment.lux
@@ -7,7 +7,7 @@
     [control
      ["." try (#+ Try)]
      [concurrency
-      ["." promise (#+ Promise)]]]
+      ["." async (#+ Async)]]]
     [data
      [binary (#+ Binary)]
      ["." product]
@@ -41,16 +41,16 @@
     ["#/." status (#+ Status)]]])
 
 (def: (with_status repository version_template [artifact type] [data status])
-  (-> (Repository Promise) ///artifact.Version Dependency [Binary Status] (Promise (Try Any)))
+  (-> (Repository Async) ///artifact.Version Dependency [Binary Status] (Async (Try Any)))
   (let [artifact (format (///artifact.uri version_template artifact)
                          (///artifact/extension.extension type))
-        deploy_hash (: (All [h] (-> (Codec Text (Hash h)) Extension (Hash h) (Promise (Try Any))))
+        deploy_hash (: (All [h] (-> (Codec Text (Hash h)) Extension (Hash h) (Async (Try Any))))
                        (function (_ codec extension hash)
                          (|> hash
                              (\ codec encode)
                              (\ utf8.codec encode)
                              (\ repository upload (format artifact extension)))))]
-    (do {! (try.with promise.monad)}
+    (do {! (try.with async.monad)}
       [_ (\ repository upload artifact data)]
       (case status
         #///dependency/status.Unverified
@@ -116,9 +116,9 @@
               ))))
 
 (def: #export (one repository [artifact type] package)
-  (-> (Repository Promise) Dependency Package (Promise (Try Artifact)))
-  (do {! promise.monad}
-    [now (promise.future instant.now)
+  (-> (Repository Async) Dependency Package (Async (Try Artifact)))
+  (do {! async.monad}
+    [now (async.future instant.now)
      #let [version_template (get@ #///artifact.version artifact)]]
     (do (try.with !)
       [_ (with_status repository version_template [artifact type] (get@ #///package.library package))
@@ -141,8 +141,8 @@
       (wrap artifact))))
 
 (def: #export (all repository resolution)
-  (-> (Repository Promise) Resolution (Promise (Try (Set Artifact))))
-  (let [! (try.with promise.monad)]
+  (-> (Repository Async) Resolution (Async (Try (Set Artifact))))
+  (let [! (try.with async.monad)]
     (|> (dictionary.entries resolution)
         (monad.map ! (function (_ [dependency package])
                        (..one repository dependency package)))
-- 
cgit v1.2.3