From a02b7bf8ff358ccfa35b03272d28537aeac723ae Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 28 Nov 2020 19:45:56 -0400
Subject: Added "private" macro to lux/debug.

---
 stdlib/source/program/aedifex.lux | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

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

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index bc8f75ee0..0b2dda8f2 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -13,7 +13,7 @@
     [security
      ["!" capability]]
     [concurrency
-     ["." promise (#+ Promise) ("#@." monad)]]]
+     ["." promise (#+ Promise) ("#\." monad)]]]
    [data
     [binary (#+ Binary)]
     ["." text
@@ -31,7 +31,9 @@
       [lux
        ["." syntax]]]]]
    [world
-    ["." file (#+ Path)]]]
+    ["." environment (#+ Environment)]
+    ["." file (#+ Path)]
+    ["." shell (#+ Shell)]]]
   ["." / #_
    ["#" profile]
    ["#." action (#+ Action)]
@@ -61,10 +63,14 @@
        (list\map (|>> /repository.remote /repository.async))))
 
 (def: (with-dependencies command profile)
-  (All [a] (-> (-> (file.System Promise) Resolution (Command a)) (Command a)))
-  (do /action.monad
-    [resolution (/command/deps.do! (file.async file.default) (..repositories profile) profile)]
-    (command (file.async file.default) resolution profile)))
+  (All [a]
+    (-> (-> Environment (file.System Promise) (Shell Promise) Resolution (Command a))
+        (Command a)))
+  (do promise.monad
+    [environment (promise.future environment.read)]
+    (do /action.monad
+      [resolution (/command/deps.do! (file.async file.default) (..repositories profile) profile)]
+      ((command environment (file.async file.default) (shell.async shell.default) resolution) profile))))
 
 (exception: (cannot-find-repository {repository Text}
                                     {options (Dictionary Text Address)})
@@ -103,10 +109,10 @@
                                      profile)
 
                 [#.None _]
-                (promise@wrap (exception.throw /.no-identity []))
+                (promise\wrap (exception.throw /.no-identity []))
 
                 [_ #.None]
-                (promise@wrap (exception.throw ..cannot-find-repository [repository (get@ #/.deploy-repositories profile)])))
+                (promise\wrap (exception.throw ..cannot-find-repository [repository (get@ #/.deploy-repositories profile)])))
           (wrap []))
         
         #/cli.Dependencies
-- 
cgit v1.2.3