From 772f621c19408c711c1e587668a52a8cfeeea418 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 12 Aug 2022 22:26:57 -0400
Subject: Fixes for Aedifex tests.

---
 stdlib/source/program/aedifex/command/deploy/release.lux | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/program/aedifex/command/deploy')

diff --git a/stdlib/source/program/aedifex/command/deploy/release.lux b/stdlib/source/program/aedifex/command/deploy/release.lux
index 88303069a..5a2496648 100644
--- a/stdlib/source/program/aedifex/command/deploy/release.lux
+++ b/stdlib/source/program/aedifex/command/deploy/release.lux
@@ -97,6 +97,7 @@
   [pom ////artifact/extension.pom]
   [tar ////artifact/extension.lux_library]
   [jar ////artifact/extension.jvm_library]
+  [sha-1 ////artifact/extension.sha-1]
   [md5 ////artifact/extension.md5]
   )
 
@@ -142,6 +143,11 @@
            (at ////hash.md5_codec encoded)
            (at utf8.codec encoded)
            (at remote upload (..md5 artifact)))
+     _ (|> it
+           ////hash.sha-1
+           (at ////hash.sha-1_codec encoded)
+           (at utf8.codec encoded)
+           (at remote upload (..sha-1 artifact)))
      _ (..release_unsigned_artifact! local remote signature)]
     (in [])))
 
@@ -150,8 +156,7 @@
   (do [! ////action.monad]
     [_ (///install.do! console fs local profile)
      _ (install_dummies! environment local fs artifact)
-     .let [working_directory (at environment directory)
-           @root (////repository/local.root environment fs)
+     .let [@root (////repository/local.root environment fs)
            $bundle (////artifact.bundle (the ////artifact.#version artifact) artifact)
            / (at fs separator)
            @local (%.format @root / $bundle)]
-- 
cgit v1.2.3