From 93eb82e1bf6d2f2a6b3b0adb85f4ab93cbb766a9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 14 Mar 2022 03:33:01 -0400
Subject: De-sigil-ification: @

---
 .../source/program/aedifex/metadata/artifact.lux   |   8 +-
 .../source/program/aedifex/metadata/snapshot.lux   | 104 ++++++++++-----------
 2 files changed, 56 insertions(+), 56 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 27448f154..90ce39aa7 100644
--- a/stdlib/source/program/aedifex/metadata/artifact.lux
+++ b/stdlib/source/program/aedifex/metadata/artifact.lux
@@ -100,12 +100,12 @@
   (-> Metadata XML)
   {xml.#Node ..<metadata>
              xml.attributes
-             (list (..group_format (value@ #group value))
-                   (..name_format (value@ #name value))
+             (list (..group_format (the #group value))
+                   (..name_format (the #name value))
                    {xml.#Node ..<versioning>
                               xml.attributes
-                              (list (..versions_format (value@ #versions value))
-                                    (..last_updated_format (value@ #last_updated value)))})})
+                              (list (..versions_format (the #versions value))
+                                    (..last_updated_format (the #last_updated value)))})})
 
 (def: (text tag)
   (-> xml.Tag (Parser Text))
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 487b91b8e..7aa41ff78 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -1,49 +1,49 @@
 (.using
-  [library
-   [lux {"-" Type}
-    [abstract
-     [monad {"+" do}]
-     [equivalence {"+" Equivalence}]]
-    [control
-     [pipe {"+" do> case>}]
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]
-     ["<>" 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}
-     ["[1]/[0]" time]
-     ["[1]/[0]" type {"+" Type}]
-     ["[1]/[0]" versioning {"+" Versioning}]
-     ["[1]/[0]" snapshot
-      ["[1]/[0]" version]
-      ["[1]/[0]" stamp]]]]])
+ [library
+  [lux {"-" Type}
+   [abstract
+    [monad {"+" do}]
+    [equivalence {"+" Equivalence}]]
+   [control
+    [pipe {"+" do> case>}]
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]
+    ["<>" 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}
+    ["[1]/[0]" time]
+    ["[1]/[0]" type {"+" Type}]
+    ["[1]/[0]" versioning {"+" Versioning}]
+    ["[1]/[0]" snapshot
+     ["[1]/[0]" version]
+     ["[1]/[0]" stamp]]]]])
 
 (type: .public Metadata
   (Record
@@ -96,14 +96,14 @@
                                                          ///artifact/snapshot/version.#updated ///artifact/time.epoch]]
                       (|> (<xml>.somewhere ///artifact/versioning.parser)
                           (# ! each
-                             (revised@ ///artifact/versioning.#versions
-                                       (: (-> (List ///artifact/snapshot/version.Version)
-                                              (List ///artifact/snapshot/version.Version))
-                                          (|>> (case> (^ (list))
-                                                      (list <default_version>)
+                             (revised ///artifact/versioning.#versions
+                                      (: (-> (List ///artifact/snapshot/version.Version)
+                                             (List ///artifact/snapshot/version.Version))
+                                         (|>> (case> (^ (list))
+                                                     (list <default_version>)
 
-                                                      versions
-                                                      versions)))))
+                                                     versions
+                                                     versions)))))
                           (<>.else [///artifact/versioning.#snapshot {///artifact/snapshot.#Local}
                                     ///artifact/versioning.#last_updated ///artifact/time.epoch
                                     ///artifact/versioning.#versions (list <default_version>)])))]
-- 
cgit v1.2.3