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/specification/aedifex/repository.lux | 48 +++++++++++-----------
 1 file changed, 24 insertions(+), 24 deletions(-)

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

diff --git a/stdlib/source/specification/aedifex/repository.lux b/stdlib/source/specification/aedifex/repository.lux
index 8a2965d51..1b16d774d 100644
--- a/stdlib/source/specification/aedifex/repository.lux
+++ b/stdlib/source/specification/aedifex/repository.lux
@@ -27,31 +27,31 @@
   (-> Artifact Artifact (/.Repository Async) Test)
   (do random.monad
     [expected (_binary.random 100)]
-    (wrap ($_ _.and'
-              (do async.monad
-                [#let [good_uri (/remote.uri (get@ #//artifact.version valid_artifact) valid_artifact //artifact/extension.lux_library)]
-                 good_upload! (\ subject upload good_uri expected)
-                 good_download! (\ subject download good_uri)
+    (in ($_ _.and'
+            (do async.monad
+              [#let [good_uri (/remote.uri (get@ #//artifact.version valid_artifact) valid_artifact //artifact/extension.lux_library)]
+               good_upload! (\ subject upload good_uri expected)
+               good_download! (\ subject download good_uri)
 
-                 #let [bad_uri (/remote.uri (get@ #//artifact.version invalid_artifact) invalid_artifact //artifact/extension.lux_library)]
-                 bad_upload! (\ subject upload bad_uri expected)
-                 bad_download! (\ subject download bad_uri)]
-                (_.cover' [/.Repository]
-                          (let [successfull_flow!
-                                (case [good_upload! good_download!]
-                                  [(#try.Success _) (#try.Success actual)]
-                                  (\ binary.equivalence = expected actual)
+               #let [bad_uri (/remote.uri (get@ #//artifact.version invalid_artifact) invalid_artifact //artifact/extension.lux_library)]
+               bad_upload! (\ subject upload bad_uri expected)
+               bad_download! (\ subject download bad_uri)]
+              (_.cover' [/.Repository]
+                        (let [successfull_flow!
+                              (case [good_upload! good_download!]
+                                [(#try.Success _) (#try.Success actual)]
+                                (\ binary.equivalence = expected actual)
 
-                                  _
-                                  false)
+                                _
+                                false)
 
-                                failed_flow!
-                                (case [bad_upload! bad_download!]
-                                  [(#try.Failure _) (#try.Failure _)]
-                                  true
+                              failed_flow!
+                              (case [bad_upload! bad_download!]
+                                [(#try.Failure _) (#try.Failure _)]
+                                true
 
-                                  _
-                                  false)]
-                            (and successfull_flow!
-                                 failed_flow!))))
-              ))))
+                                _
+                                false)]
+                          (and successfull_flow!
+                               failed_flow!))))
+            ))))
-- 
cgit v1.2.3