From ef78c1f92ab29c4370193591b170535dd9e743f7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 5 Nov 2020 22:54:05 -0400
Subject: Improved error reporting for syntax macros.

---
 stdlib/source/program/aedifex/dependency/resolution.lux | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/program/aedifex/dependency')

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)
-- 
cgit v1.2.3