From d0e4ba8124345ce990de7fdf7497dd903de6c342 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 30 Aug 2022 19:33:36 -0400
Subject: Got rid of the superfluous "lux macro" extension.

---
 stdlib/source/test/aedifex/command/deploy.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'stdlib/source/test/aedifex/command/deploy.lux')

diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index 6e8d38d31..88da67576 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -128,11 +128,11 @@
 
                           actual_pom (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.pom))
                           actual_library (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.lux_library))
-                          actual_sha-1 (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1)))
-                          actual_sha-1 (at async.monad in
-                                           (do try.monad
-                                             [actual_sha-1 (at utf8.codec decoded actual_sha-1)]
-                                             (at ///hash.sha-1_codec decoded actual_sha-1)))
+                          actual_sha1 (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha1)))
+                          actual_sha1 (at async.monad in
+                                          (do try.monad
+                                            [actual_sha1 (at utf8.codec decoded actual_sha1)]
+                                            (at ///hash.sha1_codec decoded actual_sha1)))
                           actual_md5 (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5)))
                           actual_md5 (at async.monad in
                                          (do try.monad
@@ -151,10 +151,10 @@
                                 (binary#= (|> expected_pom (at xml.codec encoded) (at utf8.codec encoded))
                                           actual_pom)
 
-                                deployed_sha-1!
+                                deployed_sha1!
                                 (at ///hash.equivalence =
-                                    (///hash.sha-1 expected_library)
-                                    actual_sha-1)
+                                    (///hash.sha1 expected_library)
+                                    actual_sha1)
 
                                 deployed_md5!
                                 (at ///hash.equivalence =
@@ -163,7 +163,7 @@
                          (in (and succeeded!
                                   deployed_library!
                                   deployed_pom!
-                                  deployed_sha-1!
+                                  deployed_sha1!
                                   deployed_md5!)))]
               (unit.coverage [/.do! /.success]
                 (try.else false verdict)))))))
-- 
cgit v1.2.3