From 02d27daeacac74785c2b0f4d1ce03d432377a36e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 29 Dec 2020 23:29:54 -0400
Subject: Unified repository abstraction for Aedifex.

---
 stdlib/source/program/aedifex/artifact.lux | 24 +++++++-----------------
 1 file changed, 7 insertions(+), 17 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 6ba0a1e48..07b53157f 100644
--- a/stdlib/source/program/aedifex/artifact.lux
+++ b/stdlib/source/program/aedifex/artifact.lux
@@ -68,24 +68,14 @@
       (text.split_all_with ..group_separator)
       (text.join_with separator)))
 
-(def: (address separator artifact)
-  (-> Text Artifact Text)
-  (let [directory (%.format (..directory separator (get@ #group artifact))
-                            separator
-                            (get@ #name artifact)
-                            separator
-                            (get@ #version artifact))]
-    (%.format directory
-              separator
-              (..identity artifact))))
-
-(def: #export uri
+(def: #export (uri artifact)
   (-> Artifact URI)
-  (..address uri.separator))
-
-(def: #export (path system)
-  (All [!] (-> (file.System !) Artifact Path))
-  (..address (\ system separator)))
+  (let [/ uri.separator
+        group (..directory / (get@ #group artifact))
+        name (get@ #name artifact)
+        version (get@ #version artifact)
+        identity (..identity artifact)]
+    (%.format group / name / version / identity)))
 
 (def: #export (local artifact)
   (-> Artifact (List Text))
-- 
cgit v1.2.3