Re-named Promise to Async.

1 files changed, 7 insertions, 7 deletions

diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux
index e7dbb7d4d..4620a1363 100644
--- a/stdlib/source/program/aedifex/repository/local.lux
+++ b/stdlib/source/program/aedifex/repository/local.lux
@@ -6,7 +6,7 @@
     [control
      ["." try]
      [concurrency
-      ["." promise (#+ Promise)]]]
+      ["." async (#+ Async)]]]
     [data
      ["." text
       ["%" format (#+ format)]]]
@@ -21,7 +21,7 @@
     ["#." metadata]]])
 
 (def: (root program /)
-  (-> (Program Promise) Text file.Path)
+  (-> (Program Async) Text file.Path)
   (|> ///local.repository
       (text.replace_all uri.separator /)
       (format (\ program home) /)))
@@ -31,13 +31,13 @@
   (text.replace_all uri.separator /))
 
 (def: (absolute_path program /)
-  (-> (Program Promise) Text (-> URI file.Path))
+  (-> (Program Async) Text (-> URI file.Path))
   (|>> ///metadata.local_uri
        (..path /)
        (format (..root program /) /)))
 
 (implementation: #export (repository program fs)
-  (-> (Program Promise) (file.System Promise) (//.Repository Promise))
+  (-> (Program Async) (file.System Async) (//.Repository Async))
 
   (def: description
     (..root program (\ fs separator)))
@@ -47,16 +47,16 @@
          (\ fs read)))
 
   (def: (upload uri content)
-    (do {! promise.monad}
+    (do {! async.monad}
       [#let [absolute_path (..absolute_path program (\ fs separator) uri)]
        ? (\ fs file? absolute_path)
        _ (if ?
            (wrap [])
            (case (file.parent fs absolute_path)
              (#.Some parent)
-             (file.make_directories promise.monad fs parent)
+             (file.make_directories async.monad fs parent)
 
              _
-             (let [! (try.with promise.monad)]
+             (let [! (try.with async.monad)]
                (\ ! wrap []))))]
       (\ fs write content absolute_path))))