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/local.lux | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/local.lux b/stdlib/source/program/aedifex/local.lux
index e1927e577..279973c1a 100644
--- a/stdlib/source/program/aedifex/local.lux
+++ b/stdlib/source/program/aedifex/local.lux
@@ -4,17 +4,18 @@
     [text
      ["%" format (#+ format)]]]
    [world
-    ["." file (#+ Path)]]]
+    [net
+     ["." uri (#+ URI)]]]]
   ["." // #_
    ["#." artifact (#+ Artifact)]])
 
-(def: #export (repository system home)
-  (All [a] (-> (file.System a) Path Path))
-  (let [/ (\ system separator)]
-    (format home / ".m2" / "repository")))
+(def: / uri.separator)
 
-(def: #export (path system home artifact)
-  (All [a] (-> (file.System a) Path Artifact Path))
-  (format (..repository system home)
-          (\ system separator)
-          (//artifact.path system artifact)))
+(def: #export repository
+  URI
+  (format ".m2" / "repository"))
+
+(def: #export uri
+  (-> Artifact URI)
+  (|>> //artifact.uri
+       (format ..repository /)))
-- 
cgit v1.2.3