From cad959345afb8bf0bd1e5eefe6c63f136833b3ce Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 22 Dec 2020 21:42:17 -0400
Subject: Properly naming unicode Block type.

---
 stdlib/source/spec/aedifex/repository.lux | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

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

diff --git a/stdlib/source/spec/aedifex/repository.lux b/stdlib/source/spec/aedifex/repository.lux
index 77c453f4b..acea123bc 100644
--- a/stdlib/source/spec/aedifex/repository.lux
+++ b/stdlib/source/spec/aedifex/repository.lux
@@ -28,11 +28,13 @@
     [expected (_binary.random 100)]
     (wrap ($_ _.and'
               (do promise.monad
-                [upload!/good (\ subject upload valid-identity valid-artifact //artifact/extension.lux-library expected)
-                 download!/good (\ subject download valid-artifact //artifact/extension.lux-library)
+                [#let [uri/good (/.uri valid-artifact //artifact/extension.lux-library)]
+                 upload!/good (\ subject upload valid-identity uri/good expected)
+                 download!/good (\ subject download uri/good)
 
-                 upload!/bad (\ subject upload invalid-identity invalid-artifact //artifact/extension.lux-library expected)
-                 download!/bad (\ subject download invalid-artifact //artifact/extension.lux-library)]
+                 #let [uri/bad (/.uri invalid-artifact //artifact/extension.lux-library)]
+                 upload!/bad (\ subject upload invalid-identity uri/bad expected)
+                 download!/bad (\ subject download uri/bad)]
                 (_.cover' [/.Repository]
                           (and (case [upload!/good download!/good]
                                  [(#try.Success _) (#try.Success actual)]
-- 
cgit v1.2.3