From d747aada2d6df6538d0a88d70169f3757aef50af Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 10 Dec 2020 07:28:48 -0400
Subject: Updated Lux license to v0.1.1.

---
 stdlib/source/program/aedifex.lux | 12 +++++-------
 1 file changed, 5 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 160720fa7..aac616597 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -33,7 +33,7 @@
    [world
     ["." shell (#+ Shell)]
     ["." console (#+ Console)]
-    ["." program]
+    ["." program (#+ Program)]
     ["." file (#+ Path)
      ["." watch]]]]
   ["." / #_
@@ -68,13 +68,11 @@
 (def: (with-dependencies console command profile)
   (All [a]
     (-> (Console Promise)
-        (-> (Console Promise) Environment (file.System Promise) (Shell Promise) Resolution (Command a))
+        (-> (Console Promise) (Program Promise) (file.System Promise) (Shell Promise) Resolution (Command a))
         (Command a)))
-  (do promise.monad
-    [environment (promise.future (\ program.default environment []))]
-    (do /action.monad
-      [resolution (/command/deps.do! console (file.async file.default) (..repositories profile) profile)]
-      ((command console environment (file.async file.default) (shell.async shell.default) resolution) profile))))
+  (do /action.monad
+    [resolution (/command/deps.do! console (file.async file.default) (..repositories profile) profile)]
+    ((command console (program.async program.default) (file.async file.default) (shell.async shell.default) resolution) profile)))
 
 (exception: (cannot-find-repository {repository Text}
                                     {options (Dictionary Text Address)})
-- 
cgit v1.2.3