diff options
| author | Eduardo Julian | 2021-07-10 03:10:43 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-07-10 03:10:43 -0400 |
| commit | 4610968193df10af12c91f699fec39aeb3ef703a (patch) | |
| tree | 27d1578548ad49f5aefe76fb696a7af10361c9cf /stdlib/source/program/aedifex/command/deps.lux | |
| parent | f3e869d0246e956399ec31a074c6c6299ff73602 (diff) | |
Made the "try" macro into a common one, instead of a host-specific one.
Diffstat (limited to 'stdlib/source/program/aedifex/command/deps.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/command/deps.lux | 17 |
1 files changed, 13 insertions, 4 deletions
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) |