aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/artifact
diff options
context:
space:
mode:
authorEduardo Julian2021-08-18 03:29:15 -0400
committerEduardo Julian2021-08-18 03:29:15 -0400
commite00ba096c8837abe85d366e0c1293c09dbe84d81 (patch)
treedc1f0955d4461ae30bb4945cddd74c462f1aee98 /stdlib/source/program/aedifex/artifact
parent3289b9dcf9d5d1c1e5c380e3185065c8fd32535f (diff)
Some bug fixes.
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/aedifex/artifact.lux40
1 files changed, 20 insertions, 20 deletions
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))))