From b0093a3849baaeb5e12692b2cf6ac65ba74bbd54 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 15 Mar 2022 22:45:49 -0400
Subject: Leaner syntax for library/lux/control/exception.report

---
 stdlib/source/test/aedifex/repository.lux | 80 +++++++++++++++----------------
 1 file changed, 40 insertions(+), 40 deletions(-)

(limited to 'stdlib/source/test/aedifex')

diff --git a/stdlib/source/test/aedifex/repository.lux b/stdlib/source/test/aedifex/repository.lux
index a57f83670..b4009cea9 100644
--- a/stdlib/source/test/aedifex/repository.lux
+++ b/stdlib/source/test/aedifex/repository.lux
@@ -1,42 +1,42 @@
 (.using
-  [library
-   [lux "*"
-    ["_" test {"+" Test}]
-    [abstract
-     [equivalence {"+" Equivalence}]
-     [hash {"+" Hash}]
-     ["[0]" monad {"+" do}]]
-    [control
-     ["[0]" io]
-     ["[0]" try]
-     ["[0]" exception {"+" exception:}]]
-    [data
-     ["[0]" product]
-     ["[0]" binary {"+" Binary}]
-     ["[0]" text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" dictionary {"+" Dictionary}]]]
-    [math
-     ["[0]" random {"+" Random}]]
-    [world
-     [net
-      ["[0]" uri {"+" URI}]]]]]
-  ["[0]" / "_"
-   ["[1][0]" identity]
-   ["[1][0]" origin]
-   ["[1][0]" local]
-   ["[1][0]" remote]
-   [//
-    ["@[0]" artifact]]]
-  [\\specification
-   ["$[0]" /]]
-  [\\program
-   ["[0]" /
-    ["[0]" remote]
-    ["/[1]" // "_"
-     ["[1][0]" artifact {"+" Version Artifact}
-      ["[1]/[0]" extension {"+" Extension}]]]]])
+ [library
+  [lux "*"
+   ["_" test {"+" Test}]
+   [abstract
+    [equivalence {"+" Equivalence}]
+    [hash {"+" Hash}]
+    ["[0]" monad {"+" do}]]
+   [control
+    ["[0]" io]
+    ["[0]" try]
+    ["[0]" exception {"+" exception:}]]
+   [data
+    ["[0]" product]
+    ["[0]" binary {"+" Binary}]
+    ["[0]" text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" dictionary {"+" Dictionary}]]]
+   [math
+    ["[0]" random {"+" Random}]]
+   [world
+    [net
+     ["[0]" uri {"+" URI}]]]]]
+ ["[0]" / "_"
+  ["[1][0]" identity]
+  ["[1][0]" origin]
+  ["[1][0]" local]
+  ["[1][0]" remote]
+  [//
+   ["@[0]" artifact]]]
+ [\\specification
+  ["$[0]" /]]
+ [\\program
+  ["[0]" /
+   ["[0]" remote]
+   ["/[1]" // "_"
+    ["[1][0]" artifact {"+" Version Artifact}
+     ["[1]/[0]" extension {"+" Extension}]]]]])
 
 (def: artifact
   (-> Version Artifact)
@@ -44,11 +44,11 @@
 
 (exception: (not_found [uri URI])
   (exception.report
-   ["URI" (%.text uri)]))
+   "URI" (%.text uri)))
 
 (exception: (cannot_upload [uri URI])
   (exception.report
-   ["URI" (%.text uri)]))
+   "URI" (%.text uri)))
 
 (type: Store
   (Dictionary URI Binary))
-- 
cgit v1.2.3