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.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/program/aedifex.lux')

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index c84f57170..664883ab0 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -85,13 +85,13 @@
      [exit_code output] ((command console program (file.async file.default) (shell.async shell.default) resolution) profile)
      _ (case exit_code
          (^ (static shell.normal))
-         (wrap [])
+         (in [])
 
          _
          (do async.monad
            [_ (\ program exit exit_code)]
-           (wrap (#try.Failure ""))))]
-    (wrap output)))
+           (in (#try.Failure ""))))]
+    (in output)))
 
 (exception: (cannot_find_repository {repository Text}
                                     {options (Dictionary Text Address)})
@@ -122,7 +122,7 @@
 
              (#try.Failure error)
              (..fail! error))))
-    (\ io.monad wrap [])))
+    (\ io.monad in [])))
 
 (program: [{[profile operation] /cli.command}]
   (do {! io.monad}
@@ -148,7 +148,7 @@
             (let [program (program.async program.default)]
               (case operation
                 #/cli.Version
-                (wrap [])
+                (in [])
                 
                 #/cli.Clean
                 (..command
@@ -175,10 +175,10 @@
                                         profile)
 
                    [#.None _]
-                   (async\wrap (exception.throw /.no_identity []))
+                   (async\in (exception.except /.no_identity []))
 
                    [_ #.None]
-                   (async\wrap (exception.throw ..cannot_find_repository [repository (get@ #/.deploy_repositories profile)]))))
+                   (async\in (exception.except ..cannot_find_repository [repository (get@ #/.deploy_repositories profile)]))))
                 
                 #/cli.Dependencies
                 (..command
-- 
cgit v1.2.3