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.lux | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'stdlib/source/program/aedifex.lux') diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux index 2d873f8a8..772f57d88 100644 --- a/stdlib/source/program/aedifex.lux +++ b/stdlib/source/program/aedifex.lux @@ -11,8 +11,6 @@ ["." exception (#+ exception:)] [parser [environment (#+ Environment)]] - [security - ["!" capability]] [concurrency ["." promise (#+ Promise) ("#\." monad)]]] [data @@ -36,7 +34,10 @@ ["." console (#+ Console)] ["." program (#+ Program)] ["." file (#+ Path) - ["." watch]]]] + ["." watch]] + [net + ["." http #_ + ["#" client]]]]] ["." / #_ ["#" profile] ["#." action (#+ Action)] @@ -65,7 +66,7 @@ (-> /.Profile (List (Repository Promise))) (|>> (get@ #/.repositories) set.to_list - (list\map (|>> (/repository/remote.repository #.None) /repository.async)))) + (list\map (|>> (/repository/remote.repository http.default #.None) /repository.async)))) (def: (with_dependencies program console command profile) (All [a] @@ -155,7 +156,7 @@ (dictionary.get repository (get@ #/.deploy_repositories profile))] [(#.Some artifact) (#.Some repository)] (/command/deploy.do! console - (/repository.async (/repository/remote.repository (#.Some identity) repository)) + (/repository.async (/repository/remote.repository http.default (#.Some identity) repository)) (file.async file.default) artifact profile) -- cgit v1.2.3