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.lux | 15 ++-------------
 1 file changed, 2 insertions(+), 13 deletions(-)

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

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index d8d855bd0..f3f222d90 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -42,23 +42,12 @@
     ["#" resolution]]
    ["#." command
     ["#/." pom]
+    ["#/." install]
     ["#/." build]
     ["#/." test]
     ["#/." auto]
     ["#/." deploy]]])
 
-(def: (install! profile)
-  (-> /.Profile (Promise Any))
-  (do promise.monad
-    [outcome (/local.install (file.async file.default) profile)]
-    (wrap (case outcome
-            (#try.Success _)
-            (log! "Successfully installed locally!")
-            
-            (#try.Failure error)
-            (log! (format "Could not install locally:" text.new-line
-                          error))))))
-
 (def: (fetch-dependencies! profile)
   (-> /.Profile (Promise Any))
   (do promise.monad
@@ -95,7 +84,7 @@
           (wrap []))
 
         #/cli.Install
-        (exec (..install! profile)
+        (exec (/command/install.do! (file.async file.default) profile)
           (wrap []))
 
         (#/cli.Deploy repository user password)
-- 
cgit v1.2.3