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/clean.lux | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index b966fe85e..142451113 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -5,8 +5,6 @@
    [control
     ["." try (#+ Try)]
     ["." exception]
-    [security
-     ["!" capability]]
     [concurrency
      ["." promise (#+ Promise)]]]
    [data
@@ -24,9 +22,9 @@
   (-> (Directory Promise) (Promise (Try Any)))
   (do {! ///action.monad}
     [nodes (: (Promise (Try (List (File Promise))))
-              (!.use (\ root files) []))
+              (\ root files []))
      _ (monad.map ! (function (_ node)
-                      (!.use (\ node delete) []))
+                      (\ node delete []))
                   nodes)]
     (wrap [])))
 
@@ -39,7 +37,7 @@
   (do promise.monad
     [#let [target (get@ #///.target profile)]
      root (: (Promise (Try (Directory Promise)))
-             (!.use (\ fs directory) target))]
+             (\ fs directory target))]
     (case root
       (#try.Success root)
       (do {! ///action.monad}
@@ -47,9 +45,9 @@
              (do !
                [_ (..clean_files! root)
                 subs (: (Promise (Try (List (Directory Promise))))
-                        (!.use (\ root directories) []))
+                        (\ root directories []))
                 _ (monad.map ! recur subs)]
-               (!.use (\ root discard) [])))]
+               (\ root discard [])))]
         (console.write_line (..success target) console))
       
       (#try.Failure error)
-- 
cgit v1.2.3