aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/artifact.lux
diff options
context:
space:
mode:
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)