Re-named Promise to Async.

1 files changed, 14 insertions, 14 deletions

diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux
index 524272559..55659f391 100644
--- a/stdlib/source/program/aedifex/metadata/artifact.lux
+++ b/stdlib/source/program/aedifex/metadata/artifact.lux
@@ -11,7 +11,7 @@
       ["<.>" xml (#+ Parser)]
       ["<.>" text]]
      [concurrency
-      ["." promise (#+ Promise)]]]
+      ["." async (#+ Async)]]]
     [data
      ["." product]
      ["." text
@@ -85,26 +85,26 @@
      (-> <type> XML)
      (|>> <pre> #xml.Text list (#xml.Node <tag> xml.attributes)))]
 
-  [format_group Group ..<group> (|>)]
-  [format_name Name ..<name> (|>)]
-  [format_version Version ..<version> (|>)]
-  [format_last_updated Instant ..<last_updated> ..instant_format]
+  [group_format Group ..<group> (|>)]
+  [name_format Name ..<name> (|>)]
+  [version_format Version ..<version> (|>)]
+  [last_updated_format Instant ..<last_updated> ..instant_format]
   )
 
-(def: format_versions
+(def: versions_format
   (-> (List Version) XML)
-  (|>> (list\map ..format_version) (#xml.Node ..<versions> xml.attributes)))
+  (|>> (list\map ..version_format) (#xml.Node ..<versions> xml.attributes)))
 
 (def: #export (format value)
   (-> Metadata XML)
   (#xml.Node ..<metadata>
              xml.attributes
-             (list (..format_group (get@ #group value))
-                   (..format_name (get@ #name value))
+             (list (..group_format (get@ #group value))
+                   (..name_format (get@ #name value))
                    (#xml.Node ..<versioning>
                               xml.attributes
-                              (list (..format_versions (get@ #versions value))
-                                    (..format_last_updated (get@ #last_updated value)))))))
+                              (list (..versions_format (get@ #versions value))
+                                    (..last_updated_format (get@ #last_updated value)))))))
 
 (def: (text tag)
   (-> xml.Tag (Parser Text))
@@ -173,8 +173,8 @@
   (instant.of_millis +0))
 
 (def: #export (read repository artifact)
-  (-> (Repository Promise) Artifact (Promise (Try Metadata)))
-  (do promise.monad
+  (-> (Repository Async) Artifact (Async (Try Metadata)))
+  (do async.monad
     [project (\ repository download (..uri artifact))]
     (case project
       (#try.Success project)
@@ -193,7 +193,7 @@
                 #last_updated ..epoch}))))))
 
 (def: #export (write repository artifact metadata)
-  (-> (Repository Promise) Artifact Metadata (Promise (Try Any)))
+  (-> (Repository Async) Artifact Metadata (Async (Try Any)))
   (|> metadata
       ..format
       (\ xml.codec encode)