From 93eb82e1bf6d2f2a6b3b0adb85f4ab93cbb766a9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 14 Mar 2022 03:33:01 -0400
Subject: De-sigil-ification: @

---
 .../program/aedifex/dependency/deployment.lux      | 50 +++++++++++-----------
 1 file changed, 25 insertions(+), 25 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 7098505d4..f55520ec1 100644
--- a/stdlib/source/program/aedifex/dependency/deployment.lux
+++ b/stdlib/source/program/aedifex/dependency/deployment.lux
@@ -91,39 +91,39 @@
   (do try.monad
     [now (: (Try ///artifact/time.Time)
             (///artifact/time.of_instant now))
-     .let [version_template (value@ ///artifact.#version artifact)
+     .let [version_template (the ///artifact.#version artifact)
            snapshot (|> snapshot
-                        (revised@ [///metadata/snapshot.#versioning ///artifact/versioning.#snapshot]
-                                  (function (_ snapshot)
-                                    (case snapshot
-                                      {///artifact/snapshot.#Local}
-                                      {///artifact/snapshot.#Local}
-                                      
-                                      {///artifact/snapshot.#Remote [_ build]}
-                                      {///artifact/snapshot.#Remote [now (++ build)]})))
-                        (with@ [///metadata/snapshot.#versioning ///artifact/versioning.#last_updated] now))
-           versioning_snapshot (value@ [///metadata/snapshot.#versioning ///artifact/versioning.#snapshot] snapshot)]]
+                        (revised [///metadata/snapshot.#versioning ///artifact/versioning.#snapshot]
+                                 (function (_ snapshot)
+                                   (case snapshot
+                                     {///artifact/snapshot.#Local}
+                                     {///artifact/snapshot.#Local}
+                                     
+                                     {///artifact/snapshot.#Remote [_ build]}
+                                     {///artifact/snapshot.#Remote [now (++ build)]})))
+                        (has [///metadata/snapshot.#versioning ///artifact/versioning.#last_updated] now))
+           versioning_snapshot (the [///metadata/snapshot.#versioning ///artifact/versioning.#snapshot] snapshot)]]
     (in (|> snapshot
-            (with@ [///metadata/snapshot.#versioning ///artifact/versioning.#versions]
-                   (list [///artifact/snapshot/version.#extension type
-                          ///artifact/snapshot/version.#value (///artifact/snapshot/version/value.format
-                                                               [///artifact/snapshot/version/value.#version version_template
-                                                                ///artifact/snapshot/version/value.#snapshot versioning_snapshot])
-                          ///artifact/snapshot/version.#updated now]))
-            ... (with@ [///metadata/snapshot.#versioning ///artifact/versioning.#snapshot]
-            ...       (list#composite (..artifacts type (product.right (value@ ///package.#library package)))
-            ...                       (..artifacts ///artifact/type.pom (product.right (value@ ///package.#pom package)))))
+            (has [///metadata/snapshot.#versioning ///artifact/versioning.#versions]
+                 (list [///artifact/snapshot/version.#extension type
+                        ///artifact/snapshot/version.#value (///artifact/snapshot/version/value.format
+                                                             [///artifact/snapshot/version/value.#version version_template
+                                                              ///artifact/snapshot/version/value.#snapshot versioning_snapshot])
+                        ///artifact/snapshot/version.#updated now]))
+            ... (has [///metadata/snapshot.#versioning ///artifact/versioning.#snapshot]
+            ...       (list#composite (..artifacts type (product.right (the ///package.#library package)))
+            ...                       (..artifacts ///artifact/type.pom (product.right (the ///package.#pom package)))))
             ))))
 
 (def: .public (one repository [artifact type] package)
   (-> (Repository Async) Dependency Package (Async (Try Artifact)))
   (do [! async.monad]
     [now (async.future instant.now)
-     .let [version_template (value@ ///artifact.#version artifact)]]
+     .let [version_template (the ///artifact.#version artifact)]]
     (do (try.with !)
-      [_ (with_status repository version_template [artifact type] (value@ ///package.#library package))
+      [_ (with_status repository version_template [artifact type] (the ///package.#library package))
 
-       _ (let [[pom pom_data status] (value@ ///package.#pom package)]
+       _ (let [[pom pom_data status] (the ///package.#pom package)]
            (with_status repository
              version_template
              [artifact ///artifact/type.pom]
@@ -135,8 +135,8 @@
        _ (///metadata/snapshot.write repository artifact snapshot)
        project (///metadata/artifact.read repository artifact)
        _ (|> project
-             (with@ ///metadata/artifact.#versions (list version_template))
-             (with@ ///metadata/artifact.#last_updated now)
+             (has ///metadata/artifact.#versions (list version_template))
+             (has ///metadata/artifact.#last_updated now)
              (///metadata/artifact.write repository artifact))]
       (in artifact))))
 
-- 
cgit v1.2.3