From 519c0c0c71cdf7ce3dfc64b9781ab826760b3d94 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 14 Jun 2021 18:33:54 -0400
Subject: Extracted Licentia out of the standard library.

---
 stdlib/source/program/aedifex/repository/local.lux | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/program/aedifex/repository')

diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux
index 6b4575627..d026559c9 100644
--- a/stdlib/source/program/aedifex/repository/local.lux
+++ b/stdlib/source/program/aedifex/repository/local.lux
@@ -36,13 +36,11 @@
       Bit
       URI
       (Promise (Try (File Promise))))
-  (do {! promise.monad}
-    [#let [uri (text.replace_once ///metadata.remote_file ///metadata.local_file uri)]
-     home (\ program home [])
-     #let [/ (\ system separator)
-           absolute_path (format home / (..root /) / (..path / uri))]]
+  (let [uri (text.replace_once ///metadata.remote_file ///metadata.local_file uri)
+        / (\ system separator)
+        absolute_path (format (..root /) / (..path / uri))]
     (if create?
-      (do {! (try.with !)}
+      (do {! (try.with promise.monad)}
         [_ (: (Promise (Try Path))
               (file.make_directories promise.monad system (file.parent system absolute_path)))]
         (: (Promise (Try (File Promise)))
-- 
cgit v1.2.3