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.

---
 stdlib/source/program/aedifex/artifact.lux | 40 +++++++++++++++---------------
 1 file changed, 20 insertions(+), 20 deletions(-)

(limited to 'stdlib/source/program/aedifex/artifact.lux')

diff --git a/stdlib/source/program/aedifex/artifact.lux b/stdlib/source/program/aedifex/artifact.lux
index cd53db5c4..6fd2d495f 100644
--- a/stdlib/source/program/aedifex/artifact.lux
+++ b/stdlib/source/program/aedifex/artifact.lux
@@ -1,6 +1,6 @@
 (.module:
   [library
-   [lux (#- Name)
+   [lux (#- Name local)
     [abstract
      [equivalence (#+ Equivalence)]
      [order (#+ Order)]
@@ -49,18 +49,18 @@
     ..equivalence)
 
   (def: (< reference subject)
-    (<| (or (text\< (get@ #group reference)
-                    (get@ #group subject)))
+    (<| (or (text\< (value@ #group reference)
+                    (value@ #group subject)))
 
-        (and (text\= (get@ #group reference)
-                     (get@ #group subject)))
-        (or (text\< (get@ #name reference)
-                    (get@ #name subject)))
+        (and (text\= (value@ #group reference)
+                     (value@ #group subject)))
+        (or (text\< (value@ #name reference)
+                    (value@ #name subject)))
         
-        (and (text\= (get@ #name reference)
-                     (get@ #name subject)))
-        (text\< (get@ #version reference)
-                (get@ #version subject)))))
+        (and (text\= (value@ #name reference)
+                     (value@ #name subject)))
+        (text\< (value@ #version reference)
+                (value@ #version subject)))))
 
 (template [<separator> <definition>]
   [(def: <definition>
@@ -74,13 +74,13 @@
 
 (def: .public (identity artifact)
   (-> Artifact Text)
-  (%.format (get@ #name artifact)
+  (%.format (value@ #name artifact)
             ..version_separator
-            (get@ #version artifact)))
+            (value@ #version artifact)))
 
 (def: .public (format value)
   (Format Artifact)
-  (%.format (get@ #group value)
+  (%.format (value@ #group value)
             ..identity_separator
             (..identity value)))
 
@@ -93,16 +93,16 @@
 (def: .public (uri version artifact)
   (-> Version Artifact URI)
   (let [/ uri.separator
-        group (..directory / (get@ #group artifact))
-        name (get@ #name artifact)
-        ... version (get@ #version artifact)
+        group (..directory / (value@ #group artifact))
+        name (value@ #name artifact)
+        ... version (value@ #version artifact)
         identity (..identity artifact)]
     (%.format group / name / version / identity)))
 
 (def: .public (local artifact)
   (-> Artifact (List Text))
   (list\compose (|> artifact
-                    (get@ #group)
+                    (value@ #group)
                     (text.all_split_by ..group_separator))
-                (list (get@ #name artifact)
-                      (get@ #version artifact))))
+                (list (value@ #name artifact)
+                      (value@ #version artifact))))
-- 
cgit v1.2.3