From 061fd8a209bbcaffc2bfb850ac6046752a567d50 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 27 Jul 2021 03:51:10 -0400
Subject: Re-named wrap => in && unwrap => out.

---
 stdlib/source/program/aedifex/artifact/snapshot/build.lux   | 2 +-
 stdlib/source/program/aedifex/artifact/snapshot/stamp.lux   | 2 +-
 stdlib/source/program/aedifex/artifact/snapshot/time.lux    | 2 +-
 stdlib/source/program/aedifex/artifact/snapshot/version.lux | 4 ++--
 4 files changed, 5 insertions(+), 5 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 0e8692054..37bb3ca2d 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/build.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/build.lux
@@ -38,5 +38,5 @@
 (def: #export parser
   (Parser Build)
   (<| (<xml>.node ..tag)
-      (<text>.embed (<>.codec nat.decimal (<text>.many <text>.decimal)))
+      (<text>.then (<>.codec nat.decimal (<text>.many <text>.decimal)))
       <xml>.text))
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
index 147369711..0e9cba494 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
@@ -46,7 +46,7 @@
 (def: time_parser
   (Parser Time)
   (<| (<xml>.node <timestamp>)
-      (<text>.embed //time.parser)
+      (<text>.then //time.parser)
       <xml>.text))
 
 (def: #export parser
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/time.lux b/stdlib/source/program/aedifex/artifact/snapshot/time.lux
index 46c9b149e..08f8b8035 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/time.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/time.lux
@@ -43,4 +43,4 @@
     [date ///time/date.parser
      _ (<text>.this ..separator)
      time ///time/time.parser]
-    (wrap [date time])))
+    (in [date time])))
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version.lux b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
index 89af452e2..c1341cf98 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
@@ -62,6 +62,6 @@
       ($_ <>.and
           (<xml>.somewhere (..text ..<extension>))
           (<xml>.somewhere (..text ..<value>))
-          (<xml>.somewhere (<text>.embed ///time.parser
-                                         (..text ..<updated>)))
+          (<xml>.somewhere (<text>.then ///time.parser
+                                        (..text ..<updated>)))
           )))
-- 
cgit v1.2.3