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/input.lux | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux
index e7f02569f..0cea854c4 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -48,19 +48,19 @@
         [expected (\ ! map (set@ #//.parents (list)) $profile.random)
          #let [fs (: (file.System Async)
                      (file.mock (\ file.default separator)))]]
-        (wrap (do async.monad
-                [verdict (do //action.monad
-                           [#let [profile (|> expected
-                                              //format.profile
-                                              %.code
-                                              (\ utf8.codec encode))]
-                            _ (\ fs write profile //project.file)
-                            actual (: (Async (Try Profile))
-                                      (/.read async.monad fs //.default))]
-                           (wrap (\ //.equivalence =
-                                    (|> expected
-                                        (update@ #//.sources ..with_default_source)
-                                        (update@ #//.repositories ..with_default_repository))
-                                    actual)))]
-                (_.cover' [/.read]
-                          (try.default false verdict)))))))
+        (in (do async.monad
+              [verdict (do //action.monad
+                         [#let [profile (|> expected
+                                            //format.profile
+                                            %.code
+                                            (\ utf8.codec encode))]
+                          _ (\ fs write profile //project.file)
+                          actual (: (Async (Try Profile))
+                                    (/.read async.monad fs //.default))]
+                         (in (\ //.equivalence =
+                                (|> expected
+                                    (update@ #//.sources ..with_default_source)
+                                    (update@ #//.repositories ..with_default_repository))
+                                actual)))]
+              (_.cover' [/.read]
+                        (try.default false verdict)))))))
-- 
cgit v1.2.3