diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/package.lux | 14 |
1 files changed, 9 insertions, 5 deletions
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))) |