From f29d0644f15e6548af6d015ef9bb60eb6f846329 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 9 Oct 2021 04:17:44 -0400
Subject: Fixed packaging issue.

---
 .../source/program/aedifex/metadata/artifact.lux   | 82 +++++++++++-----------
 1 file changed, 42 insertions(+), 40 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux
index cebd4a826..27448f154 100644
--- a/stdlib/source/program/aedifex/metadata/artifact.lux
+++ b/stdlib/source/program/aedifex/metadata/artifact.lux
@@ -1,42 +1,42 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [monad {"+" do}]
-     [equivalence {"+" Equivalence}]]
-    [control
-     [pipe {"+" do>}]
-     ["[0]" try {"+" Try}]
-     ["<>" parser
-      ["<[0]>" xml {"+" Parser}]
-      ["<[0]>" text]]
-     [concurrency
-      ["[0]" async {"+" Async}]]]
-    [data
-     ["[0]" product]
-     ["[0]" text
-      ["%" format]
-      [encoding
-       ["[0]" utf8]]]
-     [format
-      ["[0]" xml {"+" XML}]]
-     [collection
-      ["[0]" list ("[1]#[0]" functor)]]]
-    [math
-     [number
-      ["n" nat]]]
-    ["[0]" time {"+" Time}
-     ["[0]" instant {"+" Instant}]
-     ["[0]" date {"+" Date}]
-     ["[0]" year]
-     ["[0]" month]]
-    [world
-     [net
-      ["[0]" uri {"+" URI}]]]]]
-  ["[0]" //
-   ["/[1]" // "_"
-    [repository {"+" Repository}]
-    ["[1][0]" artifact {"+" Group Name Version Artifact}]]])
+ [library
+  [lux "*"
+   [abstract
+    [monad {"+" do}]
+    [equivalence {"+" Equivalence}]]
+   [control
+    [pipe {"+" do>}]
+    ["[0]" try {"+" Try}]
+    ["<>" parser
+     ["<[0]>" xml {"+" Parser}]
+     ["<[0]>" text]]
+    [concurrency
+     ["[0]" async {"+" Async}]]]
+   [data
+    ["[0]" product]
+    ["[0]" text
+     ["%" format]
+     [encoding
+      ["[0]" utf8]]]
+    [format
+     ["[0]" xml {"+" XML}]]
+    [collection
+     ["[0]" list ("[1]#[0]" functor)]]]
+   [math
+    [number
+     ["n" nat]]]
+   ["[0]" time {"+" Time}
+    ["[0]" instant {"+" Instant}]
+    ["[0]" date {"+" Date}]
+    ["[0]" year]
+    ["[0]" month]]
+   [world
+    [net
+     ["[0]" uri {"+" URI}]]]]]
+ ["[0]" //
+  ["/[1]" // "_"
+   [repository {"+" Repository}]
+   ["[1][0]" artifact {"+" Group Name Version Artifact}]]])
 
 (type: .public Metadata
   (Record
@@ -149,6 +149,8 @@
           (<xml>.somewhere (..text ..<group>))
           (<xml>.somewhere (..text ..<name>))
           (<| (<xml>.node ..<versioning>)
+              ... Handle any ignorable tag.
+              (<>.before (<>.some <xml>.any))
               ($_ <>.and
                   (<| <xml>.somewhere
                       (<xml>.node ..<versions>)
@@ -178,8 +180,8 @@
   (do async.monad
     [project (# repository download (..uri artifact))]
     (case project
-      {try.#Success project}
-      (in (|> project
+      {try.#Success binary_metadata}
+      (in (|> binary_metadata
               (do> try.monad
                    [(# utf8.codec decoded)]
                    [(# xml.codec decoded)]
-- 
cgit v1.2.3