From 2b909032e7a0bd10cd7db52067d2fb701bfa95e5 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 6 Jul 2021 21:34:21 -0400
Subject: Simplified the API for file-system operations.

---
 stdlib/source/program/aedifex/metadata.lux | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/metadata.lux b/stdlib/source/program/aedifex/metadata.lux
index 86981eb62..7fbe88cbc 100644
--- a/stdlib/source/program/aedifex/metadata.lux
+++ b/stdlib/source/program/aedifex/metadata.lux
@@ -1,7 +1,7 @@
 (.module:
   [lux #*
    [data
-    [text
+    ["." text
      ["%" format (#+ format)]]]
    [world
     [file (#+ Path)]
@@ -10,7 +10,7 @@
   ["." // #_
    ["#." artifact (#+ Artifact)]])
 
-(def: #export remote_file
+(def: remote_file
   Path
   "maven-metadata.xml")
 
@@ -29,6 +29,14 @@
             / (get@ #//artifact.name artifact)
             / ..remote_file)))
 
-(def: #export local_file
+(def: local_file
   Path
   "maven-metadata-local.xml")
+
+(def: #export (local_uri remote_uri)
+  (-> URI URI)
+  (text.replace_once ..remote_file ..local_file remote_uri))
+
+(def: #export (remote_uri local_uri)
+  (-> URI URI)
+  (text.replace_once ..local_file ..remote_file local_uri))
-- 
cgit v1.2.3