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/test/aedifex/metadata/artifact.lux | 48 ++++++++++++------------
 1 file changed, 24 insertions(+), 24 deletions(-)

(limited to 'stdlib/source/test/aedifex/metadata/artifact.lux')

diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux
index 6a2106ad3..acd0575a0 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -54,17 +54,17 @@
          hour (\ ! map (n.% 24) random.nat)
          minute (\ ! map (n.% 60) random.nat)
          second (\ ! map (n.% 60) random.nat)]
-        (wrap (try.assumed
-               (do try.monad
-                 [year (year.year year)
-                  month (month.by_number month)
-                  date (date.date year month day_of_month)
-                  time (time.time
-                        {#time.hour hour
-                         #time.minute minute
-                         #time.second second
-                         #time.milli_second 0})]
-                 (wrap (instant.of_date_time date time))))))))
+        (in (try.assumed
+             (do try.monad
+               [year (year.year year)
+                month (month.by_number month)
+                date (date.date year month day_of_month)
+                time (time.time
+                      {#time.hour hour
+                       #time.minute minute
+                       #time.second second
+                       #time.milli_second 0})]
+               (in (instant.of_date_time date time))))))))
 
 (def: #export test
   Test
@@ -100,17 +100,17 @@
                #let [program (program.async (program.mock environment.empty home working_directory))
                      fs (file.mock (\ file.default separator))
                      repository (///repository/local.repository program fs)]]
-              (wrap (do async.monad
-                      [wrote? (/.write repository artifact expected)
-                       actual (/.read repository artifact)]
-                      (_.cover' [/.write /.read]
-                                (and (case wrote?
-                                       (#try.Success _) true
-                                       (#try.Failure _) false)
-                                     (case actual
-                                       (#try.Success actual)
-                                       (\ /.equivalence = expected actual)
-                                       
-                                       (#try.Failure _)
-                                       false))))))
+              (in (do async.monad
+                    [wrote? (/.write repository artifact expected)
+                     actual (/.read repository artifact)]
+                    (_.cover' [/.write /.read]
+                              (and (case wrote?
+                                     (#try.Success _) true
+                                     (#try.Failure _) false)
+                                   (case actual
+                                     (#try.Success actual)
+                                     (\ /.equivalence = expected actual)
+                                     
+                                     (#try.Failure _)
+                                     false))))))
             ))))
-- 
cgit v1.2.3