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

(limited to 'stdlib/source/test/lux/world/file/watch.lux')

diff --git a/stdlib/source/test/lux/world/file/watch.lux b/stdlib/source/test/lux/world/file/watch.lux
index c0873b41a..9c1b31811 100644
--- a/stdlib/source/test/lux/world/file/watch.lux
+++ b/stdlib/source/test/lux/world/file/watch.lux
@@ -8,9 +8,7 @@
     ["." try]
     ["." exception]
     [concurrency
-     ["." promise]]
-    [security
-     ["!" capability]]]
+     ["." promise]]]
    [data
     ["." binary ("#\." equivalence)]
     ["." text ("#\." equivalence)
@@ -106,12 +104,12 @@
              data (_binary.random 10)]
             (wrap (do {! promise.monad}
                     [verdict (do (try.with !)
-                               [_ (!.use (\ fs create_directory) [directory])
+                               [_ (\ fs create_directory directory)
                                 _ (\ watcher start /.all directory)
                                 poll/0 (\ watcher poll [])
                                 #let [no_events_prior_to_creation!
                                       (list.empty? poll/0)]
-                                file (!.use (\ fs create_file) [expected_path])
+                                file (\ fs create_file expected_path)
                                 poll/1 (\ watcher poll [])
                                 poll/1' (\ watcher poll [])
                                 #let [after_creation!
@@ -126,7 +124,7 @@
                                              false)
                                            (list.empty? poll/1'))]
                                 _ (promise.delay 1 (#try.Success "Delay to make sure the over_write time-stamp always changes."))
-                                _ (!.use (\ file over_write) data)
+                                _ (\ file over_write data)
                                 poll/2 (\ watcher poll [])
                                 poll/2' (\ watcher poll [])
                                 #let [after_modification!
@@ -140,7 +138,7 @@
                                              _
                                              false)
                                            (list.empty? poll/2'))]
-                                _ (!.use (\ file delete) [])
+                                _ (\ file delete [])
                                 poll/3 (\ watcher poll [])
                                 poll/3' (\ watcher poll [])
                                 #let [after_deletion!
-- 
cgit v1.2.3