From 5cf4efa861075f8276f43a2516f5beacaf610b44 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 2 Jul 2021 03:11:36 -0400
Subject: No longer employing the capabilities model on the lux/world/*
 modules.

Capabilities should be opt-in, but using them in the standard library makes them mandatory.---
 stdlib/source/program/aedifex/command/build.lux | 29 +++++++++++--------------
 1 file changed, 13 insertions(+), 16 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index 6d61475d0..572ebf0f0 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -7,9 +7,7 @@
     ["." exception (#+ exception:)]
     ["." io (#+ IO)]
     [concurrency
-     ["." promise (#+ Promise) ("#\." monad)]]
-    [security
-     ["!" capability]]]
+     ["." promise (#+ Promise) ("#\." monad)]]]
    [data
     ["." product]
     ["." maybe]
@@ -140,7 +138,7 @@
      (let [[read! write!] (: [(Promise (Try Any))
                               (promise.Resolver (Try Any))]
                              (promise.promise []))
-           _ (|> (!.use (\ process <capability>) [])
+           _ (|> (\ process <capability> [])
                  (promise.await (function (recur ?line)
                                   (case ?line
                                     (#try.Failure error)
@@ -156,7 +154,7 @@
 
                                                        (#try.Success _)
                                                        (promise.await recur
-                                                                      (!.use (\ process <capability>) []))))
+                                                                      (\ process <capability> []))))
                                                    (console.write_line line console)))))
                  io.run)]
        read!))]
@@ -188,19 +186,18 @@
                    / (\ fs separator)
                    cache_directory (format working_directory / target)]
              _ (console.write_line ..start console)
-             process (!.use (\ shell execute)
-                            [environment
-                             working_directory
-                             command
-                             (list.concat (list compiler_params
-                                                (list "build")
-                                                (..plural "--library" (..libraries fs home resolution))
-                                                (..plural "--source" (set.to_list (get@ #///.sources profile)))
-                                                (..singular "--target" cache_directory)
-                                                (..singular "--module" program_module)))])
+             process (\ shell execute [environment
+                                       working_directory
+                                       command
+                                       (list.concat (list compiler_params
+                                                          (list "build")
+                                                          (..plural "--library" (..libraries fs home resolution))
+                                                          (..plural "--source" (set.to_list (get@ #///.sources profile)))
+                                                          (..singular "--target" cache_directory)
+                                                          (..singular "--module" program_module)))])
              _ (..log_output! console process)
              _ (..log_error! console process)
-             exit (!.use (\ process await) [])
+             exit (\ process await [])
              _ (console.write_line (if (i.= shell.normal exit)
                                      ..success
                                      ..failure)
-- 
cgit v1.2.3