diff options
Diffstat (limited to 'stdlib/source/program/aedifex/metadata/snapshot.lux')
-rw-r--r-- | stdlib/source/program/aedifex/metadata/snapshot.lux | 14 |
1 files changed, 7 insertions, 7 deletions
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 |