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/package.lux | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/package.lux b/stdlib/source/program/aedifex/package.lux
index f871954c3..acfa7bd62 100644
--- a/stdlib/source/program/aedifex/package.lux
+++ b/stdlib/source/program/aedifex/package.lux
@@ -19,7 +19,7 @@
      [set (#+ Set)]]]]
   ["." // #_
    ["/" profile]
-   ["#." hash (#+ Hash SHA-1 MD5)]
+   ["#." hash]
    ["#." pom]
    [dependency (#+ Dependency)
     ["#." status (#+ Status)]]
@@ -49,10 +49,14 @@
 (def: #export (local pom library)
   (-> XML Binary Package)
   {#origin (#//origin.Local "")
-   #library [library #//status.Unverified]
-   #pom [pom
-         (|> pom (\ xml.codec encode) (\ utf8.codec encode))
-         #//status.Unverified]})
+   #library [library
+             (#//status.Verified (//hash.sha-1 library)
+                                 (//hash.md5 library))]
+   #pom (let [binary_pom (|> pom (\ xml.codec encode) (\ utf8.codec encode))]
+          [pom
+           binary_pom
+           (#//status.Verified (//hash.sha-1 binary_pom)
+                               (//hash.md5 binary_pom))])})
 
 (def: #export dependencies
   (-> Package (Try (Set Dependency)))
-- 
cgit v1.2.3