aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/artifact.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-08-08 17:56:15 -0400
committerEduardo Julian2021-08-08 17:56:15 -0400
commitf621a133e6e0a516c0586270fea8eaffb4829d82 (patch)
tree399396ee2f6a10df10cea9b78c51c76679b70e59 /stdlib/source/program/aedifex/artifact.lux
parent17e7566be51df5e428a6b10e6469201a8a9468da (diff)
No more #export magic syntax.
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 631de6ebe..ec955d4dd 100644
--- a/stdlib/source/program/aedifex/artifact.lux
+++ b/stdlib/source/program/aedifex/artifact.lux
@@ -16,21 +16,21 @@
[net
["." uri (#+ URI)]]]]])
-(type: #export Group
+(type: .public Group
Text)
-(type: #export Name
+(type: .public Name
Text)
-(type: #export Version
+(type: .public Version
Text)
-(type: #export Artifact
+(type: .public Artifact
{#group Group
#name Name
#version Version})
-(def: #export hash
+(def: .public hash
(Hash Artifact)
($_ product.hash
text.hash
@@ -38,11 +38,11 @@
text.hash
))
-(def: #export equivalence
+(def: .public equivalence
(Equivalence Artifact)
(\ ..hash &equivalence))
-(implementation: #export order
+(implementation: .public order
(Order Artifact)
(def: &equivalence
@@ -72,25 +72,25 @@
[":" identity_separator]
)
-(def: #export (identity artifact)
+(def: .public (identity artifact)
(-> Artifact Text)
(%.format (get@ #name artifact)
..version_separator
(get@ #version artifact)))
-(def: #export (format value)
+(def: .public (format value)
(Format Artifact)
(%.format (get@ #group value)
..identity_separator
(..identity value)))
-(def: #export (directory separator group)
+(def: .public (directory separator group)
(-> Text Group Text)
(|> group
(text.split_all_with ..group_separator)
(text.join_with separator)))
-(def: #export (uri version artifact)
+(def: .public (uri version artifact)
(-> Version Artifact URI)
(let [/ uri.separator
group (..directory / (get@ #group artifact))
@@ -99,7 +99,7 @@
identity (..identity artifact)]
(%.format group / name / version / identity)))
-(def: #export (local artifact)
+(def: .public (local artifact)
(-> Artifact (List Text))
(list\compose (|> artifact
(get@ #group)