From 9c21fd1f33eb52fb971d493ad21a67036d68b841 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Jun 2022 02:29:28 -0400
Subject: Re-named the "poly" hierarchy to "polytypic".

---
 stdlib/source/program/aedifex/artifact/snapshot/build.lux   | 8 ++++----
 stdlib/source/program/aedifex/artifact/snapshot/stamp.lux   | 5 +++--
 stdlib/source/program/aedifex/artifact/snapshot/time.lux    | 6 +++---
 stdlib/source/program/aedifex/artifact/snapshot/version.lux | 6 +++---
 4 files changed, 13 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 79c7ba794..641b37105 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/build.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/build.lux
@@ -6,11 +6,11 @@
     [monad (.only do)]]
    [control
     ["<>" parser
-     ["<[0]>" xml (.only Parser)]
-     ["<[0]>" text]]]
+     ["<[0]>" xml (.only Parser)]]]
    [data
-    [text
-     ["%" format]]
+    ["[0]" text
+     ["%" format]
+     ["<[1]>" \\parser]]
     [format
      ["[0]" xml (.only XML)]]]
    [math
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
index 0831be2b6..3365d685c 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
@@ -6,9 +6,10 @@
     [monad (.only do)]]
    [control
     ["<>" parser (.only)
-     ["<[0]>" xml (.only Parser)]
-     ["<[0]>" text]]]
+     ["<[0]>" xml (.only Parser)]]]
    [data
+    ["[0]" text
+     ["<[1]>" \\parser]]
     ["[0]" product]
     [format
      ["[0]" xml (.only XML)]]]]]
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/time.lux b/stdlib/source/program/aedifex/artifact/snapshot/time.lux
index 732423ad2..64f0173d3 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/time.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/time.lux
@@ -7,11 +7,11 @@
    [control
     ["[0]" exception (.only exception:)]
     ["<>" parser (.only)
-     ["<[0]>" text]
      ["<[0]>" xml (.only Parser)]]]
    [data
-    [text
-     ["%" format]]
+    ["[0]" text
+     ["%" format]
+     ["<[1]>" \\parser]]
     [format
      ["[0]" xml (.only XML)]]]
    [time
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version.lux b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
index a8ee8cbef..bf26ae259 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
@@ -6,11 +6,11 @@
     [monad (.only do)]]
    [control
     ["<>" parser (.only)
-     ["<[0]>" xml (.only Parser)]
-     ["<[0]>" text]]]
+     ["<[0]>" xml (.only Parser)]]]
    [data
     ["[0]" product]
-    ["[0]" text]
+    ["[0]" text
+     ["<[1]>" \\parser]]
     [format
      ["[0]" xml (.only XML)]]]]]
  ["[0]" ///
-- 
cgit v1.2.3