aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/artifact.lux
diff options
context:
space:
mode:
authorEduardo Julian2022-06-16 00:48:19 -0400
committerEduardo Julian2022-06-16 00:48:19 -0400
commit9e2f1e76f2c8df01ed7687d934c3210fcf676bd6 (patch)
tree115fab5bd8a5f53dc0d13ce5453095324a83496f /stdlib/source/program/aedifex/artifact.lux
parentf92c806ee8da63f04bbefbf558f6249bacdb47ea (diff)
De-sigil-ification: suffix : [Part 13]
Diffstat (limited to 'stdlib/source/program/aedifex/artifact.lux')
-rw-r--r--stdlib/source/program/aedifex/artifact.lux24
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/program/aedifex/artifact.lux b/stdlib/source/program/aedifex/artifact.lux
index 278b79ea4..3799bfb74 100644
--- a/stdlib/source/program/aedifex/artifact.lux
+++ b/stdlib/source/program/aedifex/artifact.lux
@@ -31,7 +31,7 @@
#name Name
#version Version]))
-(def: .public hash
+(def .public hash
(Hash Artifact)
(all product.hash
text.hash
@@ -39,17 +39,17 @@
text.hash
))
-(def: .public equivalence
+(def .public equivalence
(Equivalence Artifact)
(at ..hash equivalence))
-(def: .public order
+(def .public order
(Order Artifact)
(implementation
- (def: equivalence
+ (def equivalence
..equivalence)
- (def: (< reference subject)
+ (def (< reference subject)
(<| (or (text#< (the #group reference)
(the #group subject)))
@@ -64,7 +64,7 @@
(the #version subject))))))
(with_template [<separator> <definition>]
- [(def: <definition>
+ [(def <definition>
Text
<separator>)]
@@ -73,37 +73,37 @@
[":" identity_separator]
)
-(def: .public (identity artifact)
+(def .public (identity artifact)
(-> Artifact Text)
(%.format (the #name artifact)
..version_separator
(the #version artifact)))
-(def: .public (format value)
+(def .public (format value)
(Format Artifact)
(%.format (the #group value)
..identity_separator
(..identity value)))
-(def: .public (directory separator group)
+(def .public (directory separator group)
(-> Text Group Text)
(|> group
(text.all_split_by ..group_separator)
(text.interposed separator)))
-(def: .public (bundle version artifact)
+(def .public (bundle version artifact)
(-> Version Artifact URI)
(let [/ uri.separator
group (..directory / (the #group artifact))
name (the #name artifact)]
(%.format group / name / version)))
-(def: .public (uri version artifact)
+(def .public (uri version artifact)
(-> Version Artifact URI)
(let [/ uri.separator]
(%.format (..bundle version artifact) / (..identity artifact))))
-(def: .public (local artifact)
+(def .public (local artifact)
(-> Artifact (List Text))
(list#composite (|> artifact
(the #group)