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.

---
 .../source/program/aedifex/metadata/snapshot.lux   | 24 +++++++++++-----------
 1 file changed, 12 insertions(+), 12 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 6faab7b3b..c96957740 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -106,10 +106,10 @@
                           (<>.default {#///artifact/versioning.snapshot #///artifact/snapshot.Local
                                        #///artifact/versioning.last_updated ///artifact/time.epoch
                                        #///artifact/versioning.versions (list <default_version>)})))]
-        (wrap {#artifact {#///artifact.group group
-                          #///artifact.name name
-                          #///artifact.version version}
-               #versioning versioning}))))
+        (in {#artifact {#///artifact.group group
+                        #///artifact.name name
+                        #///artifact.version version}
+             #versioning versioning}))))
 
 (def: #export equivalence
   (Equivalence Metadata)
@@ -128,16 +128,16 @@
     [project (\ repository download (..uri artifact))]
     (case project
       (#try.Success project)
-      (wrap (|> project
-                (do> try.monad
-                     [(\ utf8.codec decode)]
-                     [(\ xml.codec decode)]
-                     [list (<xml>.run ..parser)])))
+      (in (|> project
+              (do> try.monad
+                   [(\ utf8.codec decode)]
+                   [(\ xml.codec decode)]
+                   [list (<xml>.run ..parser)])))
       
       (#try.Failure error)
-      (wrap (#try.Success
-             {#artifact artifact
-              #versioning ///artifact/versioning.init})))))
+      (in (#try.Success
+           {#artifact artifact
+            #versioning ///artifact/versioning.init})))))
 
 (def: #export (write repository artifact metadata)
   (-> (Repository Async) Artifact Metadata (Async (Try Any)))
-- 
cgit v1.2.3