From eea741e9b4a47ae09832311d6d61f0bd6024f673 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 31 Oct 2020 02:59:48 -0400
Subject: Easy to use Rev constants.

---
 stdlib/source/program/aedifex/local.lux | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 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 674d99f04..7a4cf070e 100644
--- a/stdlib/source/program/aedifex/local.lux
+++ b/stdlib/source/program/aedifex/local.lux
@@ -14,7 +14,7 @@
      ["<.>" xml]]]
    [data
     [binary (#+ Binary)]
-    ["." text
+    [text
      ["%" format (#+ format)]
      ["." encoding]]
     [collection
@@ -26,9 +26,7 @@
      ["." tar]
      ["." xml]]]
    [world
-    ["." file (#+ Path File Directory)]
-    [net
-     ["." uri]]]]
+    ["." file (#+ Path File Directory)]]]
   [program
    [compositor
     ["." export]]]
@@ -42,7 +40,7 @@
    ["#." dependency (#+ Dependency)
     ["#/." resolution (#+ Package Resolution)]]])
 
-(def: (repository system)
+(def: #export (repository system)
   (All [a] (-> (file.System a) Path))
   (let [/ (:: system separator)]
     (format "~" / ".m2" / "repository")))
@@ -51,8 +49,7 @@
   (All [a] (-> (file.System a) Artifact Path))
   (format (..repository system)
           (:: system separator)
-          (text.replace-all uri.separator (:: system separator)
-                            (//artifact.path artifact))))
+          (//artifact.path system artifact)))
 
 (def: (save! system content file)
   (-> (file.System Promise) Binary Path (Promise (Try Any)))
@@ -103,8 +100,8 @@
 
 (def: #export (cache-all system resolution)
   (-> (file.System Promise) Resolution (Promise (Try Any)))
-  (do {@ (try.with promise.monad)}
-    [_ (monad.map @ (function (_ [dependency package])
+  (do {! (try.with promise.monad)}
+    [_ (monad.map ! (function (_ [dependency package])
                       (..cache system dependency package))
                   (dictionary.entries resolution))]
     (wrap [])))
-- 
cgit v1.2.3