diff options
| author | Eduardo Julian | 2020-11-05 22:54:05 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-11-05 22:54:05 -0400 |
| commit | ef78c1f92ab29c4370193591b170535dd9e743f7 (patch) | |
| tree | e83fd11eb20b4df26f6f5a20bef38af9d2baac8a /stdlib/source/program/aedifex/dependency/resolution.lux | |
| parent | 11cc4a67001162d689eb827f755424a07b99fccb (diff) | |
Improved error reporting for syntax macros.
Diffstat (limited to 'stdlib/source/program/aedifex/dependency/resolution.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/dependency/resolution.lux | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux index 10874cbfc..2c6a9b5e6 100644 --- a/stdlib/source/program/aedifex/dependency/resolution.lux +++ b/stdlib/source/program/aedifex/dependency/resolution.lux @@ -29,9 +29,10 @@ [world [net (#+ URL) ["." uri]]]] - ["." // (#+ Repository Dependency) + ["." // (#+ Dependency) ["/#" // #_ ["/" profile] + ["#." repository (#+ Address)] ["#." hash] ["#." pom] ["#." package (#+ Package)] @@ -109,7 +110,7 @@ (wrap actual))))) (def: #export (resolve repository dependency) - (-> Repository Dependency (IO (Try Package))) + (-> Address Dependency (IO (Try Package))) (let [[artifact type] dependency prefix (format repository uri.separator (///artifact.uri artifact))] (do (try.with io.monad) @@ -146,7 +147,7 @@ ["Type" (%.text type)]))) (def: (resolve-any repositories dependency) - (-> (List Repository) Dependency (IO (Try Package))) + (-> (List Address) Dependency (IO (Try Package))) (case repositories #.Nil (|> dependency @@ -164,7 +165,7 @@ (resolve-any alternatives dependency))))) (def: #export (resolve-all repositories dependencies resolution) - (-> (List Repository) (List Dependency) Resolution (IO (Try Resolution))) + (-> (List Address) (List Dependency) Resolution (IO (Try Resolution))) (case dependencies #.Nil (:: (try.with io.monad) wrap resolution) |