aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/artifact/versioning.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-09-12 00:07:08 -0400
committerEduardo Julian2021-09-12 00:07:08 -0400
commitdda05bca0956af5e5b3875c4cc36e61aa04772e4 (patch)
tree0f8b27697d58ab5c8e41aba7c7c9f769d3800767 /stdlib/source/program/aedifex/artifact/versioning.lux
parentd48270f43c404ba19ca04da2553455ecaaf2caba (diff)
Made the "#" character great again!
Diffstat (limited to 'stdlib/source/program/aedifex/artifact/versioning.lux')
-rw-r--r--stdlib/source/program/aedifex/artifact/versioning.lux10
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/program/aedifex/artifact/versioning.lux b/stdlib/source/program/aedifex/artifact/versioning.lux
index cf30987d2..dbac91543 100644
--- a/stdlib/source/program/aedifex/artifact/versioning.lux
+++ b/stdlib/source/program/aedifex/artifact/versioning.lux
@@ -36,7 +36,7 @@
#versions (List Version)]))
(def: .public init
- [#snapshot #//snapshot.Local
+ [#snapshot {//snapshot.#Local}
#last_updated //time.epoch
#versions (list)])
@@ -59,16 +59,16 @@
(def: last_updated_format
(-> //time.Time XML)
- (|>> //time.format #xml.Text list {#xml.Node ..<last_updated> xml.attributes}))
+ (|>> //time.format {xml.#Text} list {xml.#Node ..<last_updated> xml.attributes}))
(def: .public (format (^slots [#snapshot #last_updated #versions]))
(-> Versioning XML)
- (<| {#xml.Node ..<versioning> xml.attributes}
+ (<| {xml.#Node ..<versioning> xml.attributes}
(list (//snapshot.format snapshot)
(..last_updated_format last_updated)
(|> versions
(list\each //snapshot/version.format)
- {#xml.Node ..<snapshot_versions> xml.attributes}))))
+ {xml.#Node ..<snapshot_versions> xml.attributes}))))
(def: (text tag)
(-> xml.Tag (Parser Text))
@@ -84,7 +84,7 @@
(Parser Versioning)
(<| (<xml>.node ..<versioning>)
($_ <>.and
- (<>.else #//snapshot.Local (<xml>.somewhere //snapshot.parser))
+ (<>.else {//snapshot.#Local} (<xml>.somewhere //snapshot.parser))
(<>.else //time.epoch (<xml>.somewhere ..last_updated_parser))
(<| (<>.else (list))
<xml>.somewhere