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.

---
 .../source/program/aedifex/dependency/resolution.lux | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux
index 571d2d966..84879b93d 100644
--- a/stdlib/source/program/aedifex/dependency/resolution.lux
+++ b/stdlib/source/program/aedifex/dependency/resolution.lux
@@ -44,7 +44,7 @@
   ["[1][0]" status (.only Status)]
   ["/[1]" //
    ["/" profile]
-   ["[1][0]" hash (.only Hash SHA-1 MD5)]
+   ["[1][0]" hash (.only Hash SHA1 MD5)]
    ["[1][0]" pom]
    ["[1][0]" package (.only Package)]
    ["[1][0]" artifact (.only Version Artifact)
@@ -67,7 +67,7 @@
             ["Extension" (%.text extension)]
             ["Hash" (%.text hash)])))]
 
-  [sha-1_does_not_match]
+  [sha1_does_not_match]
   [md5_does_not_match]
   )
 
@@ -104,18 +104,18 @@
   (-> (Repository Async) Version Artifact Extension (Async (Try [Binary Status])))
   (do (try.with async.monad)
     [data (at repository download (///repository/remote.uri version_template artifact extension))
-     ?sha-1 (..verified_hash data
-                             repository version_template artifact (format extension ///artifact/extension.sha-1)
-                             ///hash.sha-1 ///hash.sha-1_codec ..sha-1_does_not_match)
+     ?sha1 (..verified_hash data
+                            repository version_template artifact (format extension ///artifact/extension.sha1)
+                            ///hash.sha1 ///hash.sha1_codec ..sha1_does_not_match)
      ?md5 (..verified_hash data
                            repository version_template artifact (format extension ///artifact/extension.md5)
                            ///hash.md5 ///hash.md5_codec ..md5_does_not_match)]
-    (in [data (when [?sha-1 ?md5]
-                [{.#Some sha-1} {.#Some md5}]
-                {//status.#Verified sha-1 md5}
+    (in [data (when [?sha1 ?md5]
+                [{.#Some sha1} {.#Some md5}]
+                {//status.#Verified sha1 md5}
 
-                [{.#Some sha-1} {.#None}]
-                {//status.#Partial {.#Left sha-1}}
+                [{.#Some sha1} {.#None}]
+                {//status.#Partial {.#Left sha1}}
 
                 [{.#None} {.#Some md5}]
                 {//status.#Partial {.#Right md5}}
-- 
cgit v1.2.3