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.

---
 .../source/test/aedifex/dependency/deployment.lux  | 60 +++++++++++-----------
 1 file changed, 30 insertions(+), 30 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index 218bbaf07..3688e56aa 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -72,8 +72,8 @@
                (atom.update (dictionary.put url input) cache)
                
                _
-               (wrap [])))]
-       (wrap (#try.Success ..good_upload))))))
+               (in [])))]
+       (in (#try.Success ..good_upload))))))
 
 (def: (verify_one expected_deployments address package cache expected_artifact actual_artifact)
   (-> Nat URL Package (Dictionary URL Binary) Artifact Artifact Bit)
@@ -141,7 +141,7 @@
            dependency (: Dependency
                          [artifact
                           artifact/type.lux_library])]]
-    (wrap [dependency artifact package])))
+    (in [dependency artifact package])))
 
 (def: #export test
   Test
@@ -156,13 +156,13 @@
                               (atom.atom (dictionary.new text.hash)))
                      http (..http cache)
                      repository (repository.async (remote.repository http #.None address))]]
-              (wrap (do async.monad
-                      [?outcome (/.one repository dependency package)
-                       cache (async.future (atom.read cache))]
-                      (_.cover' [/.one]
-                                (|> ?outcome
-                                    (try\map (verify_one 1 address package cache expected_artifact))
-                                    (try.default false))))))
+              (in (do async.monad
+                    [?outcome (/.one repository dependency package)
+                     cache (async.future (atom.read cache))]
+                    (_.cover' [/.one]
+                              (|> ?outcome
+                                  (try\map (verify_one 1 address package cache expected_artifact))
+                                  (try.default false))))))
             (do {! random.monad}
               [#let [hash (: (Hash [Dependency Artifact Package])
                              (\ hash.functor map (|>> product.right product.left product.left)
@@ -179,26 +179,26 @@
                               (atom.atom (dictionary.new text.hash)))
                      http (..http cache)
                      repository (repository.async (remote.repository http #.None address))]]
-              (wrap (do async.monad
-                      [?outcome (/.all repository resolution)
-                       cache (async.future (atom.read cache))]
-                      (_.cover' [/.all]
-                                (|> ?outcome
-                                    (try\map (function (_ actual_artifacts)
-                                               (let [expected_deployments!
-                                                     (n.= num_bundles (set.size actual_artifacts))
+              (in (do async.monad
+                    [?outcome (/.all repository resolution)
+                     cache (async.future (atom.read cache))]
+                    (_.cover' [/.all]
+                              (|> ?outcome
+                                  (try\map (function (_ actual_artifacts)
+                                             (let [expected_deployments!
+                                                   (n.= num_bundles (set.size actual_artifacts))
 
-                                                     every_deployment_was_correct!
-                                                     (list.every? (function (_ [dependency expected_artifact package])
-                                                                    (let [deployed!
-                                                                          (set.member? actual_artifacts expected_artifact)
+                                                   every_deployment_was_correct!
+                                                   (list.every? (function (_ [dependency expected_artifact package])
+                                                                  (let [deployed!
+                                                                        (set.member? actual_artifacts expected_artifact)
 
-                                                                          deployed_correctly!
-                                                                          (verify_one num_bundles address package cache expected_artifact expected_artifact)]
-                                                                      (and deployed!
-                                                                           deployed_correctly!)))
-                                                                  bundles)]
-                                                 (and expected_deployments!
-                                                      every_deployment_was_correct!))))
-                                    (try.default false))))))
+                                                                        deployed_correctly!
+                                                                        (verify_one num_bundles address package cache expected_artifact expected_artifact)]
+                                                                    (and deployed!
+                                                                         deployed_correctly!)))
+                                                                bundles)]
+                                               (and expected_deployments!
+                                                    every_deployment_was_correct!))))
+                                  (try.default false))))))
             ))))
-- 
cgit v1.2.3