From e5e4c2aff562e5c01fefb808d1d68a40f29c9cc5 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Apr 2022 01:49:29 -0400
Subject: Can now deploy releases with Aedifex.

---
 stdlib/source/program/aedifex/artifact.lux | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/artifact.lux b/stdlib/source/program/aedifex/artifact.lux
index c1c707a98..cc90d0b78 100644
--- a/stdlib/source/program/aedifex/artifact.lux
+++ b/stdlib/source/program/aedifex/artifact.lux
@@ -91,14 +91,17 @@
       (text.all_split_by ..group_separator)
       (text.interposed separator)))
 
-(def: .public (uri version artifact)
+(def: .public (bundle version artifact)
   (-> Version Artifact URI)
   (let [/ uri.separator
         group (..directory / (the #group artifact))
-        name (the #name artifact)
-        ... version (the #version artifact)
-        identity (..identity artifact)]
-    (%.format group / name / version / identity)))
+        name (the #name artifact)]
+    (%.format group / name / version)))
+
+(def: .public (uri version artifact)
+  (-> Version Artifact URI)
+  (let [/ uri.separator]
+    (%.format (..bundle version artifact) / (..identity artifact))))
 
 (def: .public (local artifact)
   (-> Artifact (List Text))
-- 
cgit v1.2.3