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/deps.lux | 58 ++++++++++++++---------------
 1 file changed, 29 insertions(+), 29 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux
index 1a54ae89d..c00c88078 100644
--- a/stdlib/source/test/aedifex/command/deps.lux
+++ b/stdlib/source/test/aedifex/command/deps.lux
@@ -95,36 +95,36 @@
 
                fs (file.mock (\ file.default separator))
                program (program.async (program.mock environment.empty home working_directory))]]
-        (wrap (do async.monad
-                [verdict (do ///action.monad
-                           [#let [console (@version.echo "")
-                                  local (///repository/local.repository program fs)]
-                            pre (|> ///dependency/resolution.empty
-                                    (dictionary.put dependee dependee_package)
-                                    (///dependency/deployment.all local))
-                            post (|> (\ ///.monoid identity)
-                                     (set@ #///.dependencies (set.of_list ///dependency.hash (list dependee depender)))
-                                     (/.do! console local
-                                            (list (///repository.mock ($///dependency/resolution.single depender_artifact depender_package)
-                                                                      []))
-                                            (function (_ url)
-                                              (///repository.mock $///dependency/resolution.nope []))))
+        (in (do async.monad
+              [verdict (do ///action.monad
+                         [#let [console (@version.echo "")
+                                local (///repository/local.repository program fs)]
+                          pre (|> ///dependency/resolution.empty
+                                  (dictionary.put dependee dependee_package)
+                                  (///dependency/deployment.all local))
+                          post (|> (\ ///.monoid identity)
+                                   (set@ #///.dependencies (set.of_list ///dependency.hash (list dependee depender)))
+                                   (/.do! console local
+                                          (list (///repository.mock ($///dependency/resolution.single depender_artifact depender_package)
+                                                                    []))
+                                          (function (_ url)
+                                            (///repository.mock $///dependency/resolution.nope []))))
 
-                            #let [had_dependee_before!
-                                  (set.member? pre dependee_artifact)
+                          #let [had_dependee_before!
+                                (set.member? pre dependee_artifact)
 
-                                  lacked_depender_before!
-                                  (not (set.member? pre depender_artifact))
+                                lacked_depender_before!
+                                (not (set.member? pre depender_artifact))
 
-                                  had_dependee_after!
-                                  (dictionary.key? post dependee)
+                                had_dependee_after!
+                                (dictionary.key? post dependee)
+                                
+                                had_depender_after!
+                                (dictionary.key? post depender)]]
+                         (in (and had_dependee_before!
+                                  lacked_depender_before!
                                   
-                                  had_depender_after!
-                                  (dictionary.key? post depender)]]
-                           (wrap (and had_dependee_before!
-                                      lacked_depender_before!
-                                      
-                                      had_dependee_after!
-                                      had_depender_after!)))]
-                (_.cover' [/.do!]
-                          (try.default false verdict)))))))
+                                  had_dependee_after!
+                                  had_depender_after!)))]
+              (_.cover' [/.do!]
+                        (try.default false verdict)))))))
-- 
cgit v1.2.3