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

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

diff --git a/stdlib/source/program/aedifex/input.lux b/stdlib/source/program/aedifex/input.lux
index b00829469..2e7dbbab6 100644
--- a/stdlib/source/program/aedifex/input.lux
+++ b/stdlib/source/program/aedifex/input.lux
@@ -6,9 +6,7 @@
     [pipe (#+ do>)]
     ["." try (#+ Try)]
     [parser
-     ["<c>" code]]
-    [security
-     ["!" capability]]]
+     ["<.>" code]]]
    [data
     [binary (#+ Binary)]
     ["." text
@@ -46,13 +44,13 @@
   (|>> (do> try.monad
             [(\ utf8.codec decode)]
             [..parse_lux]
-            [(list) (<c>.run //parser.project)])))
+            [(list) (<code>.run //parser.project)])))
 
 (def: #export (read monad fs profile)
   (All [!] (-> (Monad !) (file.System !) Text (! (Try Profile))))
   (do (try.with monad)
-    [project_file (!.use (\ fs file) //project.file)
-     project_file (!.use (\ project_file content) [])]
+    [project_file (\ fs file //project.file)
+     project_file (\ project_file content [])]
     (\ monad wrap
        (|> project_file
            (do> try.monad
-- 
cgit v1.2.3