aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/input.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-07-02 03:11:36 -0400
committerEduardo Julian2021-07-02 03:11:36 -0400
commit5cf4efa861075f8276f43a2516f5beacaf610b44 (patch)
treee21cf528d960c29d22cbc7e41180fa09e62f16d6 /stdlib/source/program/aedifex/input.lux
parent744ee69630de59ca3ba660b0aab6361cd17ce1b4 (diff)
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.
Diffstat (limited to 'stdlib/source/program/aedifex/input.lux')
-rw-r--r--stdlib/source/program/aedifex/input.lux10
1 files changed, 4 insertions, 6 deletions
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