diff options
author | Eduardo Julian | 2021-09-14 02:01:49 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-09-14 02:01:49 -0400 |
commit | 1c93f003f73116202b1f964b0d1b6d3f07b69fb0 (patch) | |
tree | 925f64cd59ab2ce48bccf6dd4df1142296d2094a /stdlib/source/program/aedifex/artifact/snapshot/version | |
parent | bca1a9cdcf837e184378d5e6339a969e40d1dbab (diff) |
No more "^slots".
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/artifact/snapshot/version.lux | 8 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/artifact/snapshot/version/value.lux | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version.lux b/stdlib/source/program/aedifex/artifact/snapshot/version.lux index e2782c12a..ab64989e5 100644 --- a/stdlib/source/program/aedifex/artifact/snapshot/version.lux +++ b/stdlib/source/program/aedifex/artifact/snapshot/version.lux @@ -45,12 +45,12 @@ (-> xml.Tag Text XML) (|> value {xml.#Text} list {xml.#Node tag xml.attributes})) -(def: .public (format (^slots [#extension #value #updated])) +(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))))) + (list (..text_format ..<extension> _#extension) + (..text_format ..<value> _#value) + (..text_format ..<updated> (///time.format _#updated))))) (def: (text tag) (-> xml.Tag (Parser Text)) diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux index d2092b306..7a7b4b28f 100644 --- a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux +++ b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux @@ -29,14 +29,14 @@ (def: .public snapshot "SNAPSHOT") -(def: .public (format (^slots [#version #snapshot])) +(def: .public (format (^open "[0]")) (%.Format Value) (case snapshot {///.#Local} version {///.#Remote stamp} - (let [(^slots [///stamp.#time ///stamp.#build]) stamp] + (let [(^open "[0]") stamp] (%.format (text.replaced ..snapshot (///time.format time) version) |