From 772f621c19408c711c1e587668a52a8cfeeea418 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 12 Aug 2022 22:26:57 -0400
Subject: Fixes for Aedifex tests.

---
 stdlib/source/test/aedifex/command/install.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index ff8bca5e9..d942a9d17 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -7,9 +7,7 @@
     ["[0]" try (.only Try) (.use "[1]#[0]" functor)]
     ["[0]" exception]
     [concurrency
-     ["[0]" async (.only Async)]]
-    [parser
-     ["[0]" environment]]]
+     ["[0]" async (.only Async)]]]
    [data
     ["[0]" binary]
     ["[0]" text (.use "[1]#[0]" equivalence)
@@ -20,7 +18,9 @@
     ["[0]" random]]
    [world
     ["[0]" file]
-    ["[0]" program (.only Program)]]
+    ["[0]" environment
+     ["program" / (.only Environment)]
+     ["[1]" \\parser]]]
    [test
     ["[0]" unit]
     ["_" property (.only Test)]]]]
@@ -31,7 +31,7 @@
    ["$[0]" artifact]]]
  [\\program
   ["[0]" / (.only)
-   ["/[1]" ///
+   ["//[1]" ///
     ["[1]" profile]
     ["[1][0]" action (.only Action)]
     ["[1][0]" local]
@@ -54,7 +54,7 @@
                               (file.make_file async.monad fs (binary.empty 0) (format head / head ".lux")))))))))
 
 (def (execute! program fs sample)
-  (-> (Program Async) (file.System Async) ///.Profile (Async (Try Text)))
+  (-> (Environment Async) (file.System Async) ///.Profile (Async (Try Text)))
   (do ///action.monad
     [.let [console ($version.echo "")]
      _ (..make_sources! fs (the ///.#sources sample))
-- 
cgit v1.2.3