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/command/install.lux | 60 +++++++++++++-------------
 1 file changed, 30 insertions(+), 30 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 3ba225206..a9de141ff 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -71,35 +71,35 @@
          working_directory (random.ascii/alpha 5)
          #let [/ (\ file.default separator)]]
         ($_ _.and
-            (wrap (do {! async.monad}
-                    [#let [fs (file.mock /)
-                           program (program.async (program.mock environment.empty home working_directory))
+            (in (do {! async.monad}
+                  [#let [fs (file.mock /)
+                         program (program.async (program.mock environment.empty home working_directory))
 
-                           artifact_path (///local.uri (get@ #///artifact.version identity) identity)
-                           library_path (format artifact_path ///artifact/extension.lux_library)
-                           pom_path (format artifact_path ///artifact/extension.pom)]
-                     verdict (do {! ///action.monad}
-                               [succeeded! (\ ! map (text\= /.success)
-                                              (..execute! program fs sample))
-                                library_exists! (|> library_path
-                                                    (format home /)
-                                                    (\ fs file?)
-                                                    (\ async.monad map exception.return))
-                                pom_exists! (|> pom_path
-                                                (format home /)
-                                                (\ fs file?)
-                                                (\ async.monad map exception.return))]
-                               (wrap (and succeeded!
-                                          library_exists!
-                                          pom_exists!)))]
-                    (_.cover' [/.do! /.success]
-                              (try.default false verdict))))
-            (wrap (do {! async.monad}
-                    [#let [fs (file.mock /)
-                           program (program.async (program.mock environment.empty home working_directory))]
-                     logging (..execute! program fs (set@ #///.identity #.None sample))]
-                    (_.cover' [/.failure]
-                              (|> logging
-                                  (try\map (text\= /.failure))
-                                  (try.default false)))))
+                         artifact_path (///local.uri (get@ #///artifact.version identity) identity)
+                         library_path (format artifact_path ///artifact/extension.lux_library)
+                         pom_path (format artifact_path ///artifact/extension.pom)]
+                   verdict (do {! ///action.monad}
+                             [succeeded! (\ ! map (text\= /.success)
+                                            (..execute! program fs sample))
+                              library_exists! (|> library_path
+                                                  (format home /)
+                                                  (\ fs file?)
+                                                  (\ async.monad map exception.return))
+                              pom_exists! (|> pom_path
+                                              (format home /)
+                                              (\ fs file?)
+                                              (\ async.monad map exception.return))]
+                             (in (and succeeded!
+                                      library_exists!
+                                      pom_exists!)))]
+                  (_.cover' [/.do! /.success]
+                            (try.default false verdict))))
+            (in (do {! async.monad}
+                  [#let [fs (file.mock /)
+                         program (program.async (program.mock environment.empty home working_directory))]
+                   logging (..execute! program fs (set@ #///.identity #.None sample))]
+                  (_.cover' [/.failure]
+                            (|> logging
+                                (try\map (text\= /.failure))
+                                (try.default false)))))
             ))))
-- 
cgit v1.2.3