From 4610968193df10af12c91f699fec39aeb3ef703a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 10 Jul 2021 03:10:43 -0400
Subject: Made the "try" macro into a common one, instead of a host-specific
 one.

---
 stdlib/source/program/aedifex/command/deps.lux | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux
index 4dcc9d6e1..e4881986b 100644
--- a/stdlib/source/program/aedifex/command/deps.lux
+++ b/stdlib/source/program/aedifex/command/deps.lux
@@ -14,6 +14,7 @@
     [text
      ["%" format]]]
    [world
+    [net (#+ URL)]
     [program (#+ Program)]
     ["." file]
     ["." console (#+ Console)]]]
@@ -35,12 +36,20 @@
        ///artifact.format
        %.text))
 
-(def: #export (do! console local remotes profile)
-  (-> (Console Promise) (Repository Promise) (List (Repository Promise)) (Command Resolution))
+(def: #export (do! console local remotes new_repository profile)
+  (-> (Console Promise) (Repository Promise) (List (Repository Promise)) (-> URL (Repository Promise)) (Command Resolution))
   (do promise.monad
     [#let [dependencies (set.to_list (get@ #///.dependencies profile))]
-     [local_successes local_failures cache] (///dependency/resolution.all console (list local) dependencies ///dependency/resolution.empty)
-     [remote_successes remote_failures resolution] (///dependency/resolution.all console remotes dependencies cache)]
+     [local_successes local_failures cache] (///dependency/resolution.all console
+                                                                          (list local)
+                                                                          new_repository
+                                                                          dependencies
+                                                                          ///dependency/resolution.empty)
+     [remote_successes remote_failures resolution] (///dependency/resolution.all console
+                                                                                 remotes
+                                                                                 new_repository
+                                                                                 dependencies
+                                                                                 cache)]
     (do ///action.monad
       [cached (|> (dictionary.keys cache)
                   (list\fold dictionary.remove resolution)
-- 
cgit v1.2.3