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

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

diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux
index 529185320..e7f02569f 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -7,7 +7,7 @@
     [control
      ["." try (#+ Try)]
      [concurrency
-      ["." promise (#+ Promise)]]]
+      ["." async (#+ Async)]]]
     [data
      [text
       ["%" format]
@@ -46,17 +46,17 @@
   (<| (_.covering /._)
       (do {! random.monad}
         [expected (\ ! map (set@ #//.parents (list)) $profile.random)
-         #let [fs (: (file.System Promise)
+         #let [fs (: (file.System Async)
                      (file.mock (\ file.default separator)))]]
-        (wrap (do promise.monad
+        (wrap (do async.monad
                 [verdict (do //action.monad
                            [#let [profile (|> expected
                                               //format.profile
                                               %.code
                                               (\ utf8.codec encode))]
                             _ (\ fs write profile //project.file)
-                            actual (: (Promise (Try Profile))
-                                      (/.read promise.monad fs //.default))]
+                            actual (: (Async (Try Profile))
+                                      (/.read async.monad fs //.default))]
                            (wrap (\ //.equivalence =
                                     (|> expected
                                         (update@ #//.sources ..with_default_source)
-- 
cgit v1.2.3