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.---
 .../program/aedifex/dependency/deployment.lux      | 28 +++++++---------------
 1 file changed, 9 insertions(+), 19 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux
index 0fdf7956f..edfa3142b 100644
--- a/stdlib/source/program/aedifex/dependency/deployment.lux
+++ b/stdlib/source/program/aedifex/dependency/deployment.lux
@@ -6,9 +6,7 @@
    [control
     ["." try (#+ Try)]
     [concurrency
-     ["." promise (#+ Promise)]]
-    [security
-     ["!" capability]]]
+     ["." promise (#+ Promise)]]]
    [data
     [binary (#+ Binary)]
     ["." product]
@@ -19,17 +17,12 @@
     [collection
      ["." dictionary]
      ["." set (#+ Set)]
-     ["." list ("#\." monoid)]]
-    [format
-     ["." xml]]]
+     ["." list ("#\." monoid)]]]
    [time
-    ["." instant (#+ Instant)]]
-   [world
-    [program (#+ Program)]
-    ["." file (#+ Path File Directory)]]]
+    ["." instant (#+ Instant)]]]
   ["." /// #_
-   ["#" local]
-   ["#." hash (#+ Hash SHA-1 MD5)]
+   [repository (#+ Repository)]
+   ["#." hash (#+ Hash)]
    ["#." package (#+ Package)]
    ["#." artifact (#+ Artifact)
     ["#/." time]
@@ -37,16 +30,14 @@
     ["#/." extension (#+ Extension)]
     ["#/." versioning]
     ["#/." snapshot
-     ["#/." version (#+ Version)
+     ["#/." version
       ["#/." value]]]]
-   ["#." metadata
+   ["#." metadata #_
     ["#/." artifact]
     ["#/." snapshot (#+ Metadata)]]
    ["#." dependency (#+ Dependency)
     [resolution (#+ Resolution)]
-    ["#/." status (#+ Status)]]
-   ["#." repository (#+ Repository)
-    ["#/." origin]]])
+    ["#/." status (#+ Status)]]])
 
 (def: (with_status repository version_template [artifact type] [data status])
   (-> (Repository Promise) ///artifact.Version Dependency [Binary Status] (Promise (Try Any)))
@@ -150,8 +141,7 @@
 
 (def: #export (all repository resolution)
   (-> (Repository Promise) Resolution (Promise (Try (Set Artifact))))
-  (do {! (try.with promise.monad)}
-    []
+  (let [! (try.with promise.monad)]
     (|> (dictionary.entries resolution)
         (monad.map ! (function (_ [dependency package])
                        (..one repository dependency package)))
-- 
cgit v1.2.3