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/compositor.lux | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

(limited to 'stdlib/source/program/compositor.lux')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 557e9d22a..f443301db 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -8,8 +8,6 @@
    [control
     ["." io (#+ IO io)]
     ["." try (#+ Try)]
-    [security
-     ["!" capability]]
     [concurrency
      ["." promise (#+ Promise) ("#\." monad)]]]
    [data
@@ -97,14 +95,14 @@
                              
                              (! (Try (File !)))
                              (:assume (file.get_file monad file_system package)))]
-            (!.use (\ (:share [!]
-                              (Monad !)
-                              monad
-                              
-                              (File !)
-                              (:assume package))
-                      over_write)
-                   [content]))
+            (\ (:share [!]
+                       (Monad !)
+                       monad
+                       
+                       (File !)
+                       (:assume package))
+               over_write
+               content))
           
           (#try.Failure error)
           (\ monad wrap (#try.Failure error)))}
@@ -118,7 +116,7 @@
                (do (try.with monad)
                  [package (: (Promise (Try (File Promise)))
                              (file.get_file monad file_system package))]
-                 (!.use (\ (: (File Promise) package) over_write) [content]))
+                 (\ (: (File Promise) package) over_write content))
                
                (#try.Failure error)
                (\ monad wrap (#try.Failure error))))))))
-- 
cgit v1.2.3