diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/metadata.lux | 8 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/metadata/artifact.lux | 14 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/metadata/snapshot.lux | 14 |
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 |