From e00ba096c8837abe85d366e0c1293c09dbe84d81 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Aug 2021 03:29:15 -0400
Subject: Some bug fixes.

---
 .../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 d23e4a805..0e9ab0def 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 (get@ #///artifact.version artifact)
+     .let [version_template (value@ #///artifact.version artifact)
            snapshot (|> snapshot
-                        (update@ [#///metadata/snapshot.versioning #///artifact/versioning.snapshot]
-                                 (function (_ snapshot)
-                                   (case snapshot
-                                     #///artifact/snapshot.Local
-                                     #///artifact/snapshot.Local
-                                     
-                                     (#///artifact/snapshot.Remote [_ build])
-                                     (#///artifact/snapshot.Remote [now (inc build)]))))
-                        (set@ [#///metadata/snapshot.versioning #///artifact/versioning.last_updated] now))
-           versioning_snapshot (get@ [#///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)]))))
+                        (with@ [#///metadata/snapshot.versioning #///artifact/versioning.last_updated] now))
+           versioning_snapshot (value@ [#///metadata/snapshot.versioning #///artifact/versioning.snapshot] snapshot)]]
     (in (|> snapshot
-            (set@ [#///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}))
-            ... (set@ [#///metadata/snapshot.versioning #///artifact/versioning.snapshot]
-            ...       (list\compose (..artifacts type (product.right (get@ #///package.library package)))
-            ...                     (..artifacts ///artifact/type.pom (product.right (get@ #///package.pom package)))))
+            (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\compose (..artifacts type (product.right (value@ #///package.library package)))
+            ...                     (..artifacts ///artifact/type.pom (product.right (value@ #///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 (get@ #///artifact.version artifact)]]
+     .let [version_template (value@ #///artifact.version artifact)]]
     (do (try.with !)
-      [_ (with_status repository version_template [artifact type] (get@ #///package.library package))
+      [_ (with_status repository version_template [artifact type] (value@ #///package.library package))
 
-       _ (let [[pom pom_data status] (get@ #///package.pom package)]
+       _ (let [[pom pom_data status] (value@ #///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
-             (set@ #///metadata/artifact.versions (list version_template))
-             (set@ #///metadata/artifact.last_updated now)
+             (with@ #///metadata/artifact.versions (list version_template))
+             (with@ #///metadata/artifact.last_updated now)
              (///metadata/artifact.write repository artifact))]
       (in artifact))))
 
-- 
cgit v1.2.3