aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/metadata
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/metadata')
-rw-r--r--stdlib/source/program/aedifex/metadata/artifact.lux4
-rw-r--r--stdlib/source/program/aedifex/metadata/snapshot.lux6
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))