aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/metadata/snapshot.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/metadata/snapshot.lux
parent17e7566be51df5e428a6b10e6469201a8a9468da (diff)
No more #export magic syntax.
Diffstat (limited to 'stdlib/source/program/aedifex/metadata/snapshot.lux')
-rw-r--r--stdlib/source/program/aedifex/metadata/snapshot.lux14
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