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/test/aedifex/command/install.lux | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'stdlib/source/test/aedifex/command/install.lux')

diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 70df9b7a3..3ba225206 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -8,7 +8,7 @@
      ["." try (#+ Try) ("#\." functor)]
      ["." exception]
      [concurrency
-      ["." promise (#+ Promise)]]
+      ["." async (#+ Async)]]
      [parser
       ["." environment]]]
     [data
@@ -40,20 +40,20 @@
        ["#/." local]]]]]])
 
 (def: #export (make_sources! fs sources)
-  (-> (file.System Promise) (Set file.Path) (Action (List Any)))
+  (-> (file.System Async) (Set file.Path) (Action (List Any)))
   (let [/ (\ fs separator)
         ! ///action.monad]
     (|> sources
         set.to_list
         (monad.map ! (function (_ head)
                        (do !
-                         [_ (: (Promise (Try Any))
-                               (file.make_directories promise.monad fs head))]
-                         (: (Promise (Try Any))
-                            (file.make_file promise.monad fs (binary.create 0) (format head / head ".lux")))))))))
+                         [_ (: (Async (Try Any))
+                               (file.make_directories async.monad fs head))]
+                         (: (Async (Try Any))
+                            (file.make_file async.monad fs (binary.create 0) (format head / head ".lux")))))))))
 
 (def: (execute! program fs sample)
-  (-> (Program Promise) (file.System Promise) ///.Profile (Promise (Try Text)))
+  (-> (Program Async) (file.System Async) ///.Profile (Async (Try Text)))
   (do ///action.monad
     [#let [console ($version.echo "")]
      _ (..make_sources! fs (get@ #///.sources sample))
@@ -71,7 +71,7 @@
          working_directory (random.ascii/alpha 5)
          #let [/ (\ file.default separator)]]
         ($_ _.and
-            (wrap (do {! promise.monad}
+            (wrap (do {! async.monad}
                     [#let [fs (file.mock /)
                            program (program.async (program.mock environment.empty home working_directory))
 
@@ -84,17 +84,17 @@
                                 library_exists! (|> library_path
                                                     (format home /)
                                                     (\ fs file?)
-                                                    (\ promise.monad map exception.return))
+                                                    (\ async.monad map exception.return))
                                 pom_exists! (|> pom_path
                                                 (format home /)
                                                 (\ fs file?)
-                                                (\ promise.monad map exception.return))]
+                                                (\ async.monad map exception.return))]
                                (wrap (and succeeded!
                                           library_exists!
                                           pom_exists!)))]
                     (_.cover' [/.do! /.success]
                               (try.default false verdict))))
-            (wrap (do {! promise.monad}
+            (wrap (do {! async.monad}
                     [#let [fs (file.mock /)
                            program (program.async (program.mock environment.empty home working_directory))]
                      logging (..execute! program fs (set@ #///.identity #.None sample))]
-- 
cgit v1.2.3