aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/metadata/snapshot.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/metadata/snapshot.lux')
-rw-r--r--stdlib/source/program/aedifex/metadata/snapshot.lux18
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 7645b556b..4479fe244 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -51,7 +51,7 @@
#versioning Versioning]))
(with_template [<definition> <tag>]
- [(def: <definition> xml.Tag ["" <tag>])]
+ [(def <definition> xml.Tag ["" <tag>])]
[<group> "groupId"]
[<name> "artifactId"]
@@ -60,7 +60,7 @@
)
(with_template [<name> <type> <tag> <pre>]
- [(def: <name>
+ [(def <name>
(-> <type> XML)
(|>> <pre> {xml.#Text} list {xml.#Node <tag> xml.attributes}))]
@@ -69,7 +69,7 @@
[version_format Version ..<version> (|>)]
)
-(def: .public (format (open "/[0]"))
+(def .public (format (open "/[0]"))
(-> Metadata XML)
(let [(open "//[0]") /#artifact]
{xml.#Node ..<metadata>
@@ -79,12 +79,12 @@
(..version_format //#version)
(///artifact/versioning.format /#versioning))}))
-(def: (text tag)
+(def (text tag)
(-> xml.Tag (Parser Text))
(<| (<xml>.node tag)
<xml>.text))
-(def: .public parser
+(def .public parser
(Parser Metadata)
(<| (<xml>.node ..<metadata>)
(do [! <>.monad]
@@ -113,18 +113,18 @@
///artifact.#version version]
#versioning versioning]))))
-(def: .public equivalence
+(def .public equivalence
(Equivalence Metadata)
(all product.equivalence
///artifact.equivalence
///artifact/versioning.equivalence
))
-(def: .public uri
+(def .public uri
(-> Artifact URI)
//.remote_artifact_uri)
-(def: .public (read repository artifact)
+(def .public (read repository artifact)
(-> (Repository Async) Artifact (Async (Try Metadata)))
(do async.monad
[project (at repository download (..uri artifact))]
@@ -141,7 +141,7 @@
[#artifact artifact
#versioning ///artifact/versioning.init]}))))
-(def: .public (write repository artifact metadata)
+(def .public (write repository artifact metadata)
(-> (Repository Async) Artifact Metadata (Async (Try Any)))
(|> metadata
..format