From e00e0b5f1e5fb509cf8f32424397110f524b8148 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 16 Jun 2022 02:16:07 -0400
Subject: New "parser" hierarchy. [Part 3]

---
 stdlib/source/program/aedifex/artifact/snapshot/build.lux   | 6 +++---
 stdlib/source/program/aedifex/artifact/snapshot/stamp.lux   | 6 +++---
 stdlib/source/program/aedifex/artifact/snapshot/time.lux    | 6 +++---
 stdlib/source/program/aedifex/artifact/snapshot/version.lux | 6 +++---
 4 files changed, 12 insertions(+), 12 deletions(-)

(limited to 'stdlib/source/program/aedifex/artifact/snapshot')

diff --git a/stdlib/source/program/aedifex/artifact/snapshot/build.lux b/stdlib/source/program/aedifex/artifact/snapshot/build.lux
index f0a0c7d18..05570de3e 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/build.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/build.lux
@@ -5,14 +5,14 @@
     [equivalence (.only Equivalence)]
     [monad (.only do)]]
    [control
-    ["<>" parser
-     ["<[0]>" xml (.only Parser)]]]
+    ["<>" parser]]
    [data
     ["[0]" text
      ["%" \\format]
      ["<[1]>" \\parser]]
     [format
-     ["[0]" xml (.only XML)]]]
+     ["[0]" xml (.only XML)
+      ["<[1]>" \\parser (.only Parser)]]]]
    [math
     [number
      ["[0]" nat]]]]])
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
index 2f82cf020..1886b5b3e 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
@@ -5,14 +5,14 @@
     [equivalence (.only Equivalence)]
     [monad (.only do)]]
    [control
-    ["<>" parser (.only)
-     ["<[0]>" xml (.only Parser)]]]
+    ["<>" parser]]
    [data
     ["[0]" text
      ["<[1]>" \\parser]]
     ["[0]" product]
     [format
-     ["[0]" xml (.only XML)]]]]]
+     ["[0]" xml (.only XML)
+      ["<[1]>" \\parser (.only Parser)]]]]]]
  ["[0]" //
   ["[1][0]" time (.only Time)]
   ["[1][0]" build (.only Build)]])
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/time.lux b/stdlib/source/program/aedifex/artifact/snapshot/time.lux
index 38a60ede0..87203845f 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/time.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/time.lux
@@ -6,14 +6,14 @@
     [monad (.only do)]]
    [control
     ["[0]" exception (.only exception:)]
-    ["<>" parser (.only)
-     ["<[0]>" xml (.only Parser)]]]
+    ["<>" parser]]
    [data
     ["[0]" text
      ["%" \\format]
      ["<[1]>" \\parser]]
     [format
-     ["[0]" xml (.only XML)]]]
+     ["[0]" xml (.only XML)
+      ["<[1]>" \\parser (.only Parser)]]]]
    [time
     ["[0]" instant (.only Instant)]]]]
  ["[0]" ///
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version.lux b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
index e38534c8f..48af92b72 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
@@ -5,14 +5,14 @@
     [equivalence (.only Equivalence)]
     [monad (.only do)]]
    [control
-    ["<>" parser (.only)
-     ["<[0]>" xml (.only Parser)]]]
+    ["<>" parser]]
    [data
     ["[0]" product]
     ["[0]" text
      ["<[1]>" \\parser]]
     [format
-     ["[0]" xml (.only XML)]]]]]
+     ["[0]" xml (.only XML)
+      ["<[1]>" \\parser (.only Parser)]]]]]]
  ["[0]" ///
   ["[1][0]" type (.only Type)]
   ["[1][0]" time (.only Time)]])
-- 
cgit v1.2.3