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/program/aedifex/command/build.lux   | 14 +++++++-------
 stdlib/source/program/aedifex/command/clean.lux   |  2 +-
 stdlib/source/program/aedifex/command/deploy.lux  |  2 +-
 stdlib/source/program/aedifex/command/deps.lux    |  2 +-
 stdlib/source/program/aedifex/command/install.lux |  2 +-
 stdlib/source/program/aedifex/command/pom.lux     |  2 +-
 stdlib/source/program/aedifex/command/test.lux    |  4 ++--
 7 files changed, 14 insertions(+), 14 deletions(-)

(limited to 'stdlib/source/program/aedifex/command')

diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index b5df31411..6a0b6bcd0 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -104,10 +104,10 @@
          [#Ruby ..ruby_compiler_name])
         
         _
-        (exception.throw ..no_available_compiler []))
+        (exception.except ..no_available_compiler []))
       
       _
-      (exception.throw ..no_available_compiler []))))
+      (exception.except ..no_available_compiler []))))
 
 (def: (path fs home dependency)
   (All [!] (-> (file.System !) Path Dependency Path))
@@ -266,7 +266,7 @@
     (let [target (get@ #///.target profile)]
       (case (get@ #///.program profile)
         #.None
-        (async\wrap (exception.throw ..no_specified_program []))
+        (async\in (exception.except ..no_specified_program []))
 
         (#.Some program_module)
         (do async.monad
@@ -274,7 +274,7 @@
            #let [home (\ program home)
                  working_directory (\ program directory)]]
           (do ///action.monad
-            [[resolution compiler] (async\wrap (..compiler resolution (get@ #///.compiler profile)))
+            [[resolution compiler] (async\in (..compiler resolution (get@ #///.compiler profile)))
              #let [host_dependencies (..host_dependencies fs home resolution)
                    [[command compiler_params] output] (case compiler
                                                         (#JVM dependency)
@@ -313,6 +313,6 @@
                                      ..success
                                      ..failure)
                                    console)]
-            (wrap [exit
-                   compiler
-                   (format cache_directory / output)])))))))
+            (in [exit
+                 compiler
+                 (format cache_directory / output)])))))))
diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index 2ff701d2b..c7443beb6 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -45,5 +45,5 @@
                       (\ ! map (monad.map ! recur))
                       (\ ! join))]
                (\ fs delete root)))
-           (\ ! wrap [])))]
+           (\ ! in [])))]
     (console.write_line (..success target) console)))
diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux
index 79f6e4f2f..9e74a53a5 100644
--- a/stdlib/source/program/aedifex/command/deploy.lux
+++ b/stdlib/source/program/aedifex/command/deploy.lux
@@ -64,7 +64,7 @@
                  set.to_list
                  (export.library fs)
                  (\ ! map (binary.run tar.writer)))
-     pom (\ async.monad wrap (///pom.write profile))
+     pom (\ async.monad in (///pom.write profile))
      _ (///dependency/deployment.one
         repository
         [artifact ///artifact/type.lux_library]
diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux
index 7e0d655e9..434bedbdd 100644
--- a/stdlib/source/program/aedifex/command/deps.lux
+++ b/stdlib/source/program/aedifex/command/deps.lux
@@ -74,4 +74,4 @@
                                                      (list.sort (\ ///dependency.order <))
                                                      (exception.enumerate ..format))])
                              console)]
-      (wrap resolution))))
+      (in resolution))))
diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux
index 142829a8c..ddc73ca36 100644
--- a/stdlib/source/program/aedifex/command/install.lux
+++ b/stdlib/source/program/aedifex/command/install.lux
@@ -60,7 +60,7 @@
                    (export.library fs))
        pom (|> profile
                ///pom.write
-               (\ async.monad wrap))
+               (\ async.monad in))
        _ (///dependency/deployment.one repository
                                        [identity ///artifact/type.lux_library]
                                        (let [pom_data (|> pom
diff --git a/stdlib/source/program/aedifex/command/pom.lux b/stdlib/source/program/aedifex/command/pom.lux
index 73e10f0fc..3b6412070 100644
--- a/stdlib/source/program/aedifex/command/pom.lux
+++ b/stdlib/source/program/aedifex/command/pom.lux
@@ -31,6 +31,6 @@
     [content (|> (///pom.write profile)
                  (try\map (|>> (\ xml.codec encode)
                                (\ utf8.codec encode)))
-                 async\wrap)
+                 async\in)
      _ (\ fs write content ///pom.file)]
     (console.write_line ..success console)))
diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux
index e159a48f2..7af6a4351 100644
--- a/stdlib/source/program/aedifex/command/test.lux
+++ b/stdlib/source/program/aedifex/command/test.lux
@@ -67,5 +67,5 @@
                                    ..success
                                    ..failure)
                                  console)]
-          (wrap [exit []]))
-        (wrap [build_exit []])))))
+          (in [exit []]))
+        (in [build_exit []])))))
-- 
cgit v1.2.3