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/program/aedifex/dependency/deployment.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux
index c74eac1ee..998298ae3 100644
--- a/stdlib/source/program/aedifex/dependency/deployment.lux
+++ b/stdlib/source/program/aedifex/dependency/deployment.lux
@@ -59,20 +59,20 @@
         
         {///dependency/status.#Partial partial}
         (when partial
-          {.#Left sha-1}
-          (deploy_hash ///hash.sha-1_codec ///artifact/extension.sha-1 sha-1)
+          {.#Left sha1}
+          (deploy_hash ///hash.sha1_codec ///artifact/extension.sha1 sha1)
           
           {.#Right md5}
           (deploy_hash ///hash.md5_codec ///artifact/extension.md5 md5))
         
-        {///dependency/status.#Verified sha-1 md5}
+        {///dependency/status.#Verified sha1 md5}
         (do !
-          [_ (deploy_hash ///hash.sha-1_codec ///artifact/extension.sha-1 sha-1)]
+          [_ (deploy_hash ///hash.sha1_codec ///artifact/extension.sha1 sha1)]
           (deploy_hash ///hash.md5_codec ///artifact/extension.md5 md5))))))
 
 (def (artifacts type status)
   (-> ///artifact/type.Type Status (List ///artifact/type.Type))
-  (with_expansions [<sha-1> (format type ///artifact/extension.sha-1)
+  (with_expansions [<sha1> (format type ///artifact/extension.sha1)
                     <md5> (format type ///artifact/extension.md5)]
     (list.partial type
                   (when status
@@ -81,11 +81,11 @@
                     
                     {///dependency/status.#Partial partial}
                     (list (when partial
-                            {.#Left _} <sha-1>
+                            {.#Left _} <sha1>
                             {.#Right _} <md5>))
                     
                     {///dependency/status.#Verified _}
-                    (list <sha-1> <md5>)))))
+                    (list <sha1> <md5>)))))
 
 (def (update_snapshot [artifact type] now snapshot)
   (-> Dependency Instant Metadata (Try Metadata))
-- 
cgit v1.2.3