diff options
Diffstat (limited to 'stdlib/source/program/aedifex')
7 files changed, 22 insertions, 22 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) diff --git a/stdlib/source/program/aedifex/artifact/time/time.lux b/stdlib/source/program/aedifex/artifact/time/time.lux index 4b77f6d1f..441c4605b 100644 --- a/stdlib/source/program/aedifex/artifact/time/time.lux +++ b/stdlib/source/program/aedifex/artifact/time/time.lux @@ -21,10 +21,10 @@ (def: .public (format value) (%.Format Time) - (let [(^slots [time.#hour time.#minute time.#second]) (time.clock value)] - (%.format (//.pad #hour) - (//.pad #minute) - (//.pad #second)))) + (let [(^open "_[0]") (time.clock value)] + (%.format (//.pad _#hour) + (//.pad _#minute) + (//.pad _#second)))) (def: .public parser (<text>.Parser Time) diff --git a/stdlib/source/program/aedifex/artifact/versioning.lux b/stdlib/source/program/aedifex/artifact/versioning.lux index 09d8e4758..99769536f 100644 --- a/stdlib/source/program/aedifex/artifact/versioning.lux +++ b/stdlib/source/program/aedifex/artifact/versioning.lux @@ -61,12 +61,12 @@ (-> //time.Time XML) (|>> //time.format {xml.#Text} list {xml.#Node ..<last_updated> xml.attributes})) -(def: .public (format (^slots [#snapshot #last_updated #versions])) +(def: .public (format (^open "_[0]")) (-> Versioning XML) (<| {xml.#Node ..<versioning> xml.attributes} - (list (//snapshot.format snapshot) - (..last_updated_format last_updated) - (|> versions + (list (//snapshot.format _#snapshot) + (..last_updated_format _#last_updated) + (|> _#versions (list#each //snapshot/version.format) {xml.#Node ..<snapshot_versions> xml.attributes})))) diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux index d0a662185..60d5d6e6d 100644 --- a/stdlib/source/program/aedifex/metadata/artifact.lux +++ b/stdlib/source/program/aedifex/metadata/artifact.lux @@ -59,7 +59,7 @@ (def: (time_format value) (%.Format Time) - (let [(^slots [time.#hour time.#minute time.#second]) (time.clock value)] + (let [(^open "[0]") (time.clock value)] (%.format (..pad #hour) (..pad #minute) (..pad #second)))) @@ -187,7 +187,7 @@ {try.#Failure error} (in {try.#Success - (let [(^slots [///artifact.#group ///artifact.#name]) artifact] + (let [(^open "[0]") artifact] [..#group #group ..#name #name ..#versions (list) diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux index 943bf6004..fe9a2e6a0 100644 --- a/stdlib/source/program/aedifex/metadata/snapshot.lux +++ b/stdlib/source/program/aedifex/metadata/snapshot.lux @@ -69,15 +69,15 @@ [version_format Version ..<version> (|>)] ) -(def: .public (format (^slots [#artifact #versioning])) +(def: .public (format (^open "[0]")) (-> Metadata XML) - (let [(^slots [///artifact.#group ///artifact.#name ///artifact.#version]) artifact] + (let [(^open "[0]") #artifact] {xml.#Node ..<metadata> xml.attributes (list (..group_format group) (..name_format name) (..version_format version) - (///artifact/versioning.format versioning))})) + (///artifact/versioning.format #versioning))})) (def: (text tag) (-> xml.Tag (Parser Text)) |