aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/metadata
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/aedifex/metadata.lux8
-rw-r--r--stdlib/source/program/aedifex/metadata/artifact.lux14
-rw-r--r--stdlib/source/program/aedifex/metadata/snapshot.lux14
3 files changed, 18 insertions, 18 deletions
diff --git a/stdlib/source/program/aedifex/metadata.lux b/stdlib/source/program/aedifex/metadata.lux
index 40a7bd612..7b883e4f8 100644
--- a/stdlib/source/program/aedifex/metadata.lux
+++ b/stdlib/source/program/aedifex/metadata.lux
@@ -15,7 +15,7 @@
Path
"maven-metadata.xml")
-(def: #export (remote_artifact_uri artifact)
+(def: .public (remote_artifact_uri artifact)
(-> Artifact URI)
(let [/ uri.separator]
(format (//artifact.directory / (get@ #//artifact.group artifact))
@@ -23,7 +23,7 @@
/ (get@ #//artifact.version artifact)
/ ..remote_file)))
-(def: #export (remote_project_uri artifact)
+(def: .public (remote_project_uri artifact)
(-> Artifact URI)
(let [/ uri.separator]
(format (//artifact.directory / (get@ #//artifact.group artifact))
@@ -34,10 +34,10 @@
Path
"maven-metadata-local.xml")
-(def: #export (local_uri remote_uri)
+(def: .public (local_uri remote_uri)
(-> URI URI)
(text.replace_once ..remote_file ..local_file remote_uri))
-(def: #export (remote_uri local_uri)
+(def: .public (remote_uri local_uri)
(-> URI URI)
(text.replace_once ..local_file ..remote_file local_uri))
diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux
index 777c7df1b..0bd6d4a12 100644
--- a/stdlib/source/program/aedifex/metadata/artifact.lux
+++ b/stdlib/source/program/aedifex/metadata/artifact.lux
@@ -38,7 +38,7 @@
[repository (#+ Repository)]
["#." artifact (#+ Group Name Version Artifact)]]])
-(type: #export Metadata
+(type: .public Metadata
{#group Group
#name Name
#versions (List Version)
@@ -95,7 +95,7 @@
(-> (List Version) XML)
(|>> (list\map ..version_format) (#xml.Node ..<versions> xml.attributes)))
-(def: #export (format value)
+(def: .public (format value)
(-> Metadata XML)
(#xml.Node ..<metadata>
xml.attributes
@@ -141,7 +141,7 @@
(in (instant.of_date_time date time)))
(..text ..<last_updated>)))
-(def: #export parser
+(def: .public parser
(Parser Metadata)
(<| (<xml>.node ..<metadata>)
($_ <>.and
@@ -155,7 +155,7 @@
(<xml>.somewhere ..last_updated_parser)
)))))
-(def: #export equivalence
+(def: .public equivalence
(Equivalence Metadata)
($_ product.equivalence
text.equivalence
@@ -164,7 +164,7 @@
instant.equivalence
))
-(def: #export uri
+(def: .public uri
(-> Artifact URI)
//.remote_project_uri)
@@ -172,7 +172,7 @@
Instant
(instant.of_millis +0))
-(def: #export (read repository artifact)
+(def: .public (read repository artifact)
(-> (Repository Async) Artifact (Async (Try Metadata)))
(do async.monad
[project (\ repository download (..uri artifact))]
@@ -192,7 +192,7 @@
#versions (list)
#last_updated ..epoch}))))))
-(def: #export (write repository artifact metadata)
+(def: .public (write repository artifact metadata)
(-> (Repository Async) Artifact Metadata (Async (Try Any)))
(|> metadata
..format
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 6a9d812c9..69e3432fa 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -45,7 +45,7 @@
["#/." version]
["#/." stamp]]]]])
-(type: #export Metadata
+(type: .public Metadata
{#artifact Artifact
#versioning Versioning})
@@ -68,7 +68,7 @@
[version_format Version ..<version> (|>)]
)
-(def: #export (format (^slots [#artifact #versioning]))
+(def: .public (format (^slots [#artifact #versioning]))
(-> Metadata XML)
(let [(^slots [#///artifact.group #///artifact.name #///artifact.version]) artifact]
(#xml.Node ..<metadata>
@@ -83,7 +83,7 @@
(<| (<xml>.node tag)
<xml>.text))
-(def: #export parser
+(def: .public parser
(Parser Metadata)
(<| (<xml>.node ..<metadata>)
(do {! <>.monad}
@@ -111,18 +111,18 @@
#///artifact.version version}
#versioning versioning}))))
-(def: #export equivalence
+(def: .public equivalence
(Equivalence Metadata)
($_ product.equivalence
///artifact.equivalence
///artifact/versioning.equivalence
))
-(def: #export uri
+(def: .public uri
(-> Artifact URI)
//.remote_artifact_uri)
-(def: #export (read repository artifact)
+(def: .public (read repository artifact)
(-> (Repository Async) Artifact (Async (Try Metadata)))
(do async.monad
[project (\ repository download (..uri artifact))]
@@ -139,7 +139,7 @@
{#artifact artifact
#versioning ///artifact/versioning.init})))))
-(def: #export (write repository artifact metadata)
+(def: .public (write repository artifact metadata)
(-> (Repository Async) Artifact Metadata (Async (Try Any)))
(|> metadata
..format