From f3e869d0246e956399ec31a074c6c6299ff73602 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 8 Jul 2021 23:59:00 -0400
Subject: Made sure the "phase" parameter of extensions is always usable (even
 across language boundaries)

---
 .../source/program/aedifex/metadata/snapshot.lux   | 29 +++++++++++++---------
 1 file changed, 17 insertions(+), 12 deletions(-)

(limited to 'stdlib/source/program/aedifex/metadata/snapshot.lux')

diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 6eec0c32c..518e0404a 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -41,7 +41,8 @@
      ["#/." type (#+ Type)]
      ["#/." versioning (#+ Versioning)]
      ["#/." snapshot
-      ["#/." version]]]]])
+      ["#/." version]
+      ["#/." stamp]]]]])
 
 (type: #export Metadata
   {#artifact Artifact
@@ -93,18 +94,22 @@
         [group (<xml>.somewhere (..text ..<group>))
          name (<xml>.somewhere (..text ..<name>))
          version (<xml>.somewhere (..text ..<version>))
-         versioning (\ ! map
-                       (update@ #///artifact/versioning.versions
-                                (: (-> (List ///artifact/snapshot/version.Version)
-                                       (List ///artifact/snapshot/version.Version))
-                                   (|>> (case> (^ (list))
-                                               (list {#///artifact/snapshot/version.extension ///artifact/type.jvm_library
-                                                      #///artifact/snapshot/version.value version
-                                                      #///artifact/snapshot/version.updated ///artifact/time.epoch})
+         versioning (with_expansions [<default_version> {#///artifact/snapshot/version.extension ///artifact/type.jvm_library
+                                                         #///artifact/snapshot/version.value version
+                                                         #///artifact/snapshot/version.updated ///artifact/time.epoch}]
+                      (|> (<xml>.somewhere ///artifact/versioning.parser)
+                          (\ ! map
+                             (update@ #///artifact/versioning.versions
+                                      (: (-> (List ///artifact/snapshot/version.Version)
+                                             (List ///artifact/snapshot/version.Version))
+                                         (|>> (case> (^ (list))
+                                                     (list <default_version>)
 
-                                               versions
-                                               versions))))
-                       (<xml>.somewhere ///artifact/versioning.parser))]
+                                                     versions
+                                                     versions)))))
+                          (<>.default {#///artifact/versioning.snapshot #///artifact/snapshot.Local
+                                       #///artifact/versioning.last_updated ///artifact/time.epoch
+                                       #///artifact/versioning.versions (list <default_version>)})))]
         (wrap {#artifact {#///artifact.group group
                           #///artifact.name name
                           #///artifact.version version}
-- 
cgit v1.2.3