aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/artifact/snapshot
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/snapshot
parentd48270f43c404ba19ca04da2553455ecaaf2caba (diff)
Made the "#" character great again!
Diffstat (limited to 'stdlib/source/program/aedifex/artifact/snapshot')
-rw-r--r--stdlib/source/program/aedifex/artifact/snapshot/build.lux4
-rw-r--r--stdlib/source/program/aedifex/artifact/snapshot/stamp.lux4
-rw-r--r--stdlib/source/program/aedifex/artifact/snapshot/version.lux4
-rw-r--r--stdlib/source/program/aedifex/artifact/snapshot/version/value.lux6
4 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/build.lux b/stdlib/source/program/aedifex/artifact/snapshot/build.lux
index 4960f5862..44adcc18b 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/build.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/build.lux
@@ -31,9 +31,9 @@
(def: .public format
(-> Build XML)
(|>> %.nat
- #xml.Text
+ {xml.#Text}
list
- {#xml.Node ..tag xml.attributes}))
+ {xml.#Node ..tag xml.attributes}))
(def: .public parser
(Parser Build)
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
index a840bd3c0..f5a08e942 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
@@ -35,9 +35,9 @@
(def: time_format
(-> Time XML)
(|>> //time.format
- {#xml.Text}
+ {xml.#Text}
list
- {#xml.Node ..<timestamp> xml.attributes}))
+ {xml.#Node ..<timestamp> xml.attributes}))
(def: .public (format (^slots [#time #build]))
(-> Stamp (List XML))
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version.lux b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
index 2dac99df9..194956419 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
@@ -43,11 +43,11 @@
(def: (text_format tag value)
(-> xml.Tag Text XML)
- (|> value #xml.Text list {#xml.Node tag xml.attributes}))
+ (|> value {xml.#Text} list {xml.#Node tag xml.attributes}))
(def: .public (format (^slots [#extension #value #updated]))
(-> Version XML)
- (<| {#xml.Node ..<snapshot_version> xml.attributes}
+ (<| {xml.#Node ..<snapshot_version> xml.attributes}
(list (..text_format ..<extension> extension)
(..text_format ..<value> value)
(..text_format ..<updated> (///time.format updated)))))
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
index 5f1816b3e..12fe26c46 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
@@ -32,11 +32,11 @@
(def: .public (format (^slots [#version #snapshot]))
(%.Format Value)
(case snapshot
- #///.Local
+ {///.#Local}
version
- {#///.Remote stamp}
- (let [(^slots [#///stamp.time #///stamp.build]) stamp]
+ {///.#Remote stamp}
+ (let [(^slots [///stamp.#time ///stamp.#build]) stamp]
(%.format (text.replaced ..snapshot
(///time.format time)
version)