From 02d27daeacac74785c2b0f4d1ce03d432377a36e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 29 Dec 2020 23:29:54 -0400
Subject: Unified repository abstraction for Aedifex.

---
 stdlib/source/program/aedifex.lux | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index 6a4deb3c3..52269d053 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -47,7 +47,8 @@
    ["#." dependency #_
     ["#" resolution (#+ Resolution)]]
    ["#." repository (#+ Repository)
-    ["#/." remote (#+ Address)]]
+    ["#/." remote (#+ Address)]
+    ["#/." local]]
    ["#." command (#+ Command)
     ["#/." version]
     ["#/." clean]
@@ -71,7 +72,10 @@
         (-> (Console Promise) (Program Promise) (file.System Promise) (Shell Promise) Resolution (Command a))
         (Command a)))
   (do /action.monad
-    [resolution (/command/deps.do! program console (file.async file.default) (..repositories profile) profile)]
+    [resolution (/command/deps.do! console
+                                   (/repository/local.repository program (file.async file.default))
+                                   (..repositories profile)
+                                   profile)]
     ((command console program (file.async file.default) (shell.async shell.default) resolution) profile)))
 
 (exception: (cannot_find_repository {repository Text}
@@ -141,7 +145,8 @@
                 
                 #/cli.Install
                 (..command
-                 (/command/install.do! program console (file.async file.default) profile))
+                 (let [fs (file.async file.default)]
+                   (/command/install.do! console fs (/repository/local.repository program fs) profile)))
 
                 (#/cli.Deploy repository identity)
                 (..command
@@ -162,7 +167,10 @@
                 
                 #/cli.Dependencies
                 (..command
-                 (/command/deps.do! program console (file.async file.default) (..repositories profile) profile))
+                 (/command/deps.do! console
+                                    (/repository/local.repository program (file.async file.default))
+                                    (..repositories profile)
+                                    profile))
 
                 (#/cli.Compilation compilation)
                 (case compilation
@@ -182,5 +190,8 @@
                     (..command
                      (case auto
                        #/cli.Build (..with_dependencies program console (/command/auto.do! watcher /command/build.do!) profile)
-                       #/cli.Test (..with_dependencies program console (/command/auto.do! watcher /command/test.do!) profile)))))))
+                       #/cli.Test (..with_dependencies program console (/command/auto.do! watcher /command/test.do!) profile)))))
+
+                _
+                (undefined)))
             ))))))
-- 
cgit v1.2.3