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/command/test.lux | 45 +++++++++++++-------------
 1 file changed, 23 insertions(+), 22 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux
index 3b5afaabf..089417b94 100644
--- a/stdlib/source/program/aedifex/command/test.lux
+++ b/stdlib/source/program/aedifex/command/test.lux
@@ -6,15 +6,14 @@
     [concurrency
      ["." promise (#+ Promise) ("#\." monad)]]
     [security
-     ["!" capability]]
-    [parser
-     [environment (#+ Environment)]]]
+     ["!" capability]]]
    [data
     [text
      ["%" format (#+ format)]]
     [number
      ["i" int]]]
    [world
+    [program (#+ Program)]
     ["." file]
     ["." shell (#+ Shell)]
     ["." console (#+ Console)]]]
@@ -31,22 +30,24 @@
 (def: #export success "[TEST ENDED]")
 (def: #export failure "[TEST FAILED]")
 
-(def: #export (do! console environment fs shell resolution profile)
-  (-> (Console Promise) Environment (file.System Promise) (Shell Promise) Resolution (Command Any))
-  (do ///action.monad
-    [[compiler program] (//build.do! console environment fs shell resolution profile)
-     working-directory (promise\wrap (//build.working-directory environment))
-     _ (console.write-line ..start console)
-     process (!.use (\ shell execute)
-                    [environment
-                     working-directory
-                     (case compiler
-                       (#//build.JVM artifact) (///runtime.java program)
-                       (#//build.JS artifact) (///runtime.node program))
-                     (list)])
-     exit (!.use (\ process await) [])
-     _ (console.write-line (if (i.= shell.normal exit)
-                             ..success
-                             ..failure)
-                           console)]
-    (wrap [])))
+(def: #export (do! console program fs shell resolution profile)
+  (-> (Console Promise) (Program Promise) (file.System Promise) (Shell Promise) Resolution (Command Any))
+  (do promise.monad
+    [environment (\ program environment [])
+     working-directory (\ program directory [])]
+    (do ///action.monad
+      [[compiler program] (//build.do! console program fs shell resolution profile)
+       _ (console.write-line ..start console)
+       process (!.use (\ shell execute)
+                      [environment
+                       working-directory
+                       (case compiler
+                         (#//build.JVM artifact) (///runtime.java program)
+                         (#//build.JS artifact) (///runtime.node program))
+                       (list)])
+       exit (!.use (\ process await) [])
+       _ (console.write-line (if (i.= shell.normal exit)
+                               ..success
+                               ..failure)
+                             console)]
+      (wrap []))))
-- 
cgit v1.2.3