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/repository/local.lux | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/program/aedifex/repository/local.lux')

diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux
index 2841bbd32..8ceaf5ffc 100644
--- a/stdlib/source/program/aedifex/repository/local.lux
+++ b/stdlib/source/program/aedifex/repository/local.lux
@@ -6,9 +6,7 @@
    [control
     ["." try (#+ Try)]
     [concurrency
-     ["." promise (#+ Promise)]]
-    [security
-     ["!" capability]]]
+     ["." promise (#+ Promise)]]]
    [data
     ["." text
      ["%" format (#+ format)]]]
@@ -46,7 +44,7 @@
         (: (Promise (Try (File Promise)))
            (file.get_file promise.monad system absolute_path)))
       (: (Promise (Try (File Promise)))
-         (!.use (\ system file) absolute_path)))))
+         (\ system file absolute_path)))))
 
 (implementation: #export (repository program system)
   (-> (Program Promise) (file.System Promise) (//.Repository Promise))
@@ -54,9 +52,9 @@
   (def: (download uri)
     (do {! (try.with promise.monad)}
       [file (..file program system false uri)]
-      (!.use (\ file content) [])))
+      (\ file content [])))
 
   (def: (upload uri content)
     (do {! (try.with promise.monad)}
       [file (..file program system true uri)]
-      (!.use (\ file over_write) [content]))))
+      (\ file over_write content))))
-- 
cgit v1.2.3