aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/artifact/snapshot/version
diff options
context:
space:
mode:
authorEduardo Julian2022-06-16 00:48:19 -0400
committerEduardo Julian2022-06-16 00:48:19 -0400
commit9e2f1e76f2c8df01ed7687d934c3210fcf676bd6 (patch)
tree115fab5bd8a5f53dc0d13ce5453095324a83496f /stdlib/source/program/aedifex/artifact/snapshot/version
parentf92c806ee8da63f04bbefbf558f6249bacdb47ea (diff)
De-sigil-ification: suffix : [Part 13]
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/aedifex/artifact/snapshot/version.lux12
-rw-r--r--stdlib/source/program/aedifex/artifact/snapshot/version/value.lux8
2 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version.lux b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
index bf26ae259..e38534c8f 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
@@ -23,7 +23,7 @@
#value Text
#updated Time]))
-(def: .public equivalence
+(def .public equivalence
(Equivalence Version)
(all product.equivalence
text.equivalence
@@ -32,7 +32,7 @@
))
(with_template [<definition> <tag>]
- [(def: <definition> xml.Tag ["" <tag>])]
+ [(def <definition> xml.Tag ["" <tag>])]
[<extension> "extension"]
[<value> "value"]
@@ -41,23 +41,23 @@
[<snapshot_version> "snapshotVersion"]
)
-(def: (text_format tag value)
+(def (text_format tag value)
(-> xml.Tag Text XML)
(|> value {xml.#Text} list {xml.#Node tag xml.attributes}))
-(def: .public (format (open "_[0]"))
+(def .public (format (open "_[0]"))
(-> Version XML)
(<| {xml.#Node ..<snapshot_version> xml.attributes}
(list (..text_format ..<extension> _#extension)
(..text_format ..<value> _#value)
(..text_format ..<updated> (///time.format _#updated)))))
-(def: (text tag)
+(def (text tag)
(-> xml.Tag (Parser Text))
(<| (<xml>.node tag)
<xml>.text))
-(def: .public parser
+(def .public parser
(Parser Version)
(<| (<xml>.node ..<snapshot_version>)
(all <>.and
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
index 875326058..c0b528186 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
@@ -16,20 +16,20 @@
[#version Text
#snapshot Snapshot]))
-(def: .public equivalence
+(def .public equivalence
(Equivalence Value)
(all product.equivalence
text.equivalence
///.equivalence
))
-(def: separator
+(def separator
"-")
-(def: .public snapshot
+(def .public snapshot
"SNAPSHOT")
-(def: .public (format (open "/[0]"))
+(def .public (format (open "/[0]"))
(%.Format Value)
(case /#snapshot
{///.#Local}