From 1c93f003f73116202b1f964b0d1b6d3f07b69fb0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 14 Sep 2021 02:01:49 -0400
Subject: No more "^slots".

---
 stdlib/source/program/aedifex/metadata/artifact.lux | 4 ++--
 stdlib/source/program/aedifex/metadata/snapshot.lux | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/program/aedifex/metadata')

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))
-- 
cgit v1.2.3