From a82bd1eabe94763162c2b0707d9c198fbe9835e3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 18 Jun 2021 14:21:41 -0400
Subject: Refactored the machinery to make local macros into its own module.

---
 stdlib/source/test/aedifex/command/build.lux | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index 8a4df9a7e..85231ae33 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -4,6 +4,7 @@
    [abstract
     [monad (#+ do)]]
    [control
+    [io (#+ IO)]
     ["." try]
     ["." exception]
     [concurrency
@@ -37,7 +38,7 @@
       ["#/." resolution]]]]})
 
 (def: #export good_shell
-  (-> Any (Shell Promise))
+  (-> Any (Shell IO))
   (shell.mock
    (function (_ [actual_environment actual_working_directory actual_command actual_arguments])
      (#try.Success
@@ -55,7 +56,7 @@
             (#try.Success [state shell.normal]))))))))
 
 (def: #export bad_shell
-  (-> Any (Shell Promise))
+  (-> Any (Shell IO))
   (shell.mock
    (function (_ [actual_environment actual_working_directory actual_command actual_arguments])
      (#try.Success
@@ -98,7 +99,7 @@
   (<| (_.covering /._)
       (do {! random.monad}
         [#let [fs (file.mock (\ file.default separator))
-               shell (..good_shell [])]
+               shell (shell.async (..good_shell []))]
          program (random.ascii/alpha 5)
          target (random.ascii/alpha 5)
          home (random.ascii/alpha 5)
@@ -162,7 +163,7 @@
                resolution ..resolution]
               (wrap (do promise.monad
                       [verdict (do ///action.monad
-                                 [_ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs (..bad_shell []) resolution profile)
+                                 [_ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs (shell.async (..bad_shell [])) resolution profile)
                                   start (!.use (\ console read_line) [])
                                   end (!.use (\ console read_line) [])]
                                  (wrap (and (text\= /.start start)
-- 
cgit v1.2.3