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/upload.lux | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/upload.lux b/stdlib/source/program/aedifex/upload.lux
index f5834fa61..391413f03 100644
--- a/stdlib/source/program/aedifex/upload.lux
+++ b/stdlib/source/program/aedifex/upload.lux
@@ -18,7 +18,8 @@
     [net (#+ URL)
      ["." uri]]]]
   ["." // #_
-   ["#." dependency (#+ Repository Dependency)]
+   ["#." repository (#+ Address User Password)]
+   ["#." dependency (#+ Dependency)]
    ["#." artifact]])
 
 (type: #export (Action a)
@@ -28,14 +29,8 @@
   (:coerce (Monad Action)
            (try.with io.monad)))
 
-(type: #export User
-  Text)
-
-(type: #export Password
-  Text)
-
 (def: (url repository dependency)
-  (-> Repository Dependency URL)
+  (-> Address Dependency URL)
   (format repository
           uri.separator
           (//artifact.uri (get@ #//dependency.artifact dependency))
@@ -80,7 +75,7 @@
                                                              (java/util/Base64::getEncoder))))
 
 (def: #export (upload repository user password dependency content)
-  (-> Repository User Password Dependency Binary
+  (-> Address User Password Dependency Binary
       (Action Any))
   (do {! ..monad}
     [connection (|> (..url repository dependency)
-- 
cgit v1.2.3