Fixes for Aedifex tests.

1 files changed, 7 insertions, 2 deletions

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)]