From e5625dd840a8b8adc76987f649da254335d3d93a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 11 Aug 2022 16:50:42 -0400
Subject: Improved exception-definition macro.

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

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

diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux
index 81eb16502..571d2d966 100644
--- a/stdlib/source/program/aedifex/dependency/resolution.lux
+++ b/stdlib/source/program/aedifex/dependency/resolution.lux
@@ -10,7 +10,7 @@
    [control
     ["[0]" maybe]
     ["[0]" try (.only Try) (.use "[1]#[0]" functor)]
-    ["[0]" exception (.only Exception exception)]
+    ["[0]" exception (.only Exception)]
     [function
      ["[0]" predicate (.only Predicate)]]
     [concurrency
@@ -60,9 +60,8 @@
     ["[1]/[0]" snapshot]]]])
 
 (with_template [<name>]
-  [(exception .public (<name> [artifact Artifact
-                               extension Extension
-                               hash Text])
+  [(exception.def .public (<name> [artifact extension hash])
+     (Exception [Artifact Extension Text])
      (exception.report
       (list ["Artifact" (///artifact.format artifact)]
             ["Extension" (%.text extension)]
@@ -156,7 +155,8 @@
   (Equivalence Resolution)
   (dictionary.equivalence ///package.equivalence))
 
-(exception .public (cannot_resolve [dependency Dependency])
+(exception.def .public (cannot_resolve dependency)
+  (Exception Dependency)
   (exception.report
    (list ["Artifact" (%.text (///artifact.format (the //.#artifact dependency)))]
          ["Type" (%.text (the //.#type dependency))])))
-- 
cgit v1.2.3