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/repository/local.lux | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'stdlib/source/test/aedifex/repository/local.lux')

diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux
index a40924dea..180ea404a 100644
--- a/stdlib/source/test/aedifex/repository/local.lux
+++ b/stdlib/source/test/aedifex/repository/local.lux
@@ -38,15 +38,15 @@
          expected (\ ! map (\ utf8.codec encode)
                      (random.ascii/lower 10))]
         ($_ _.and
-            (wrap (do async.monad
-                    [before_upload (\ repo download uri)
-                     _ (\ repo upload uri expected)
-                     actual (\ repo download uri)]
-                    (_.cover' [/.repository]
-                              (and (case before_upload
-                                     (#try.Success _) false
-                                     (#try.Failure _) true)
-                                   (|> actual
-                                       (try\map (binary\= expected))
-                                       (try.default false))))))
+            (in (do async.monad
+                  [before_upload (\ repo download uri)
+                   _ (\ repo upload uri expected)
+                   actual (\ repo download uri)]
+                  (_.cover' [/.repository]
+                            (and (case before_upload
+                                   (#try.Success _) false
+                                   (#try.Failure _) true)
+                                 (|> actual
+                                     (try\map (binary\= expected))
+                                     (try.default false))))))
             ))))
-- 
cgit v1.2.3