diff options
Diffstat (limited to 'stdlib/source/program/aedifex/metadata')
-rw-r--r-- | stdlib/source/program/aedifex/metadata/artifact.lux | 4 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/metadata/snapshot.lux | 6 |
2 files changed, 5 insertions, 5 deletions
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)) |