diff options
Diffstat (limited to 'stdlib/source/program/aedifex/artifact/snapshot')
3 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux index f40cf76e5..153a270a8 100644 --- a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux +++ b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux @@ -39,10 +39,10 @@ list {xml.#Node ..<timestamp> xml.attributes})) -(def: .public (format (^slots [#time #build])) +(def: .public (format (^open "_[0]")) (-> Stamp (List XML)) - (list (..time_format time) - (//build.format build))) + (list (..time_format _#time) + (//build.format _#build))) (def: time_parser (Parser Time) 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) |