From 69272f598d831e89da83bdc8c9290d5607dfb14d Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 31 Oct 2020 20:26:37 -0400
Subject: Re-named the directory for my bookmarks to better reflect what they
 are.

---
 stdlib/source/program/aedifex/local.lux | 18 ------------------
 1 file changed, 18 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 7a4cf070e..3c06f0222 100644
--- a/stdlib/source/program/aedifex/local.lux
+++ b/stdlib/source/program/aedifex/local.lux
@@ -58,24 +58,6 @@
              (file.get-file promise.monad system file))]
     (!.use (:: file over-write) [content])))
 
-(def: #export (install system profile)
-  (-> (file.System Promise) Profile (Promise (Try Any)))
-  (case (get@ #/.identity profile)
-    (#.Some identity)
-    (do (try.with promise.monad)
-      [repository (: (Promise (Try Path))
-                     (file.make-directories promise.monad system (..path system identity)))
-       #let [artifact-name (format repository (:: system separator) (//artifact.identity identity))]
-       package (export.library system (set.to-list (get@ #/.sources profile)))
-       _ (..save! system (binary.run tar.writer package)
-                  (format artifact-name //artifact/extension.lux-library))
-       pom (:: promise.monad wrap (//pom.write profile))]
-      (..save! system (|> pom (:: xml.codec encode) encoding.to-utf8)
-               (format artifact-name //artifact/extension.pom)))
-
-    _
-    (:: promise.monad wrap (exception.throw /.no-identity []))))
-
 (def: #export (cache system [artifact type] package)
   (-> (file.System Promise) Dependency Package (Promise (Try Any)))
   (do (try.with promise.monad)
-- 
cgit v1.2.3