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

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

diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux
index 568c6fb76..238fa824b 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -46,8 +46,8 @@
     [count (\ ! map (n.% 10) random.nat)
      names (random.set text.hash count ..node_name)
      contents (random.list count ($binary.random 100))]
-    (wrap (list.zipped/2 (list\map (|>> (format prefix)) (set.to_list names))
-                         contents))))
+    (in (list.zipped/2 (list\map (|>> (format prefix)) (set.to_list names))
+                       contents))))
 
 (def: (create_file! fs [path content])
   (-> (file.System Async) [Path Binary] (Async (Try Any)))
@@ -59,15 +59,15 @@
     [_ (: (Async (Try Any))
           (file.make_directories async.monad fs path))
      _ (monad.map ! (..create_file! fs) files)]
-    (wrap [])))
+    (in [])))
 
 (def: (directory_exists? fs)
   (-> (file.System Async) Path (Async (Try Bit)))
-  (|>> (\ fs directory?) (try.lift async.monad)))
+  (|>> (\ fs directory?) (try.lifted async.monad)))
 
 (def: (file_exists? fs)
   (-> (file.System Async) Path (Async (Try Bit)))
-  (|>> (\ fs file?) (try.lift async.monad)))
+  (|>> (\ fs file?) (try.lifted async.monad)))
 
 (def: (assets_exist? fs directory_path files)
   (-> (file.System Async) Path (List [Path Binary]) (Async (Try Bit)))
@@ -77,8 +77,8 @@
                      (|> files
                          (list\map product.left)
                          (monad.map ///action.monad (..file_exists? fs))))]
-    (wrap (and directory_exists?
-               (list.every? (|>>) files_exist?)))))
+    (in (and directory_exists?
+             (list.every? (|>>) files_exist?)))))
 
 (def: #export test
   Test
@@ -95,25 +95,25 @@
          sub_files (..files (format sub_path /))
 
          dummy @profile.random]
-        (wrap (do async.monad
-                [#let [console (@version.echo "")]
-                 verdict (do {! (try.with async.monad)}
-                           [_ (..create_directory! fs target_path direct_files)
-                            _ (..create_directory! fs sub_path sub_files)
-                            context_exists!/pre (..directory_exists? fs context)
-                            target_exists!/pre (..assets_exist? fs target_path direct_files)
-                            sub_exists!/pre (..assets_exist? fs sub_path sub_files)
-                            _ (/.do! console fs (set@ #///.target target_path dummy))
-                            context_exists!/post (..directory_exists? fs context)
-                            target_exists!/post (..assets_exist? fs target_path direct_files)
-                            sub_exists!/post (..assets_exist? fs sub_path sub_files)
-                            logging (\ console read_line [])]
-                           (wrap (and (and context_exists!/pre
-                                           context_exists!/post)
-                                      (and target_exists!/pre
-                                           (not target_exists!/post))
-                                      (and sub_exists!/pre
-                                           (not sub_exists!/post))
-                                      (text\= (/.success target_path) logging))))]
-                (_.cover' [/.do! /.success]
-                          (try.default false verdict)))))))
+        (in (do async.monad
+              [#let [console (@version.echo "")]
+               verdict (do {! (try.with async.monad)}
+                         [_ (..create_directory! fs target_path direct_files)
+                          _ (..create_directory! fs sub_path sub_files)
+                          context_exists!/pre (..directory_exists? fs context)
+                          target_exists!/pre (..assets_exist? fs target_path direct_files)
+                          sub_exists!/pre (..assets_exist? fs sub_path sub_files)
+                          _ (/.do! console fs (set@ #///.target target_path dummy))
+                          context_exists!/post (..directory_exists? fs context)
+                          target_exists!/post (..assets_exist? fs target_path direct_files)
+                          sub_exists!/post (..assets_exist? fs sub_path sub_files)
+                          logging (\ console read_line [])]
+                         (in (and (and context_exists!/pre
+                                       context_exists!/post)
+                                  (and target_exists!/pre
+                                       (not target_exists!/post))
+                                  (and sub_exists!/pre
+                                       (not sub_exists!/post))
+                                  (text\= (/.success target_path) logging))))]
+              (_.cover' [/.do! /.success]
+                        (try.default false verdict)))))))
-- 
cgit v1.2.3