From 0d909187d5b9effcd08f533d50af7d29c0d6bfd8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Apr 2022 05:42:36 -0400
Subject: De-sigil-ification: $

---
 stdlib/source/specification/aedifex/repository.lux | 48 +++++++++++-----------
 1 file changed, 24 insertions(+), 24 deletions(-)

(limited to 'stdlib/source/specification/aedifex/repository.lux')

diff --git a/stdlib/source/specification/aedifex/repository.lux b/stdlib/source/specification/aedifex/repository.lux
index 9e22c1ac4..3d4fdd69e 100644
--- a/stdlib/source/specification/aedifex/repository.lux
+++ b/stdlib/source/specification/aedifex/repository.lux
@@ -27,31 +27,31 @@
   (-> Artifact Artifact (/.Repository Async) Test)
   (do random.monad
     [expected (_binary.random 100)]
-    (in ($_ _.and'
-            (do async.monad
-              [.let [good_uri (/remote.uri (the //artifact.#version valid_artifact) valid_artifact //artifact/extension.lux_library)]
-               good_upload! (# subject upload good_uri expected)
-               good_download! (# subject download good_uri)
+    (in (all _.and'
+             (do async.monad
+               [.let [good_uri (/remote.uri (the //artifact.#version valid_artifact) valid_artifact //artifact/extension.lux_library)]
+                good_upload! (# subject upload good_uri expected)
+                good_download! (# subject download good_uri)
 
-               .let [bad_uri (/remote.uri (the //artifact.#version invalid_artifact) invalid_artifact //artifact/extension.lux_library)]
-               bad_upload! (# subject upload bad_uri expected)
-               bad_download! (# subject download bad_uri)]
-              (_.cover' [/.Repository]
-                        (let [successfull_flow!
-                              (case [good_upload! good_download!]
-                                [{try.#Success _} {try.#Success actual}]
-                                (# binary.equivalence = expected actual)
+                .let [bad_uri (/remote.uri (the //artifact.#version invalid_artifact) invalid_artifact //artifact/extension.lux_library)]
+                bad_upload! (# subject upload bad_uri expected)
+                bad_download! (# subject download bad_uri)]
+               (_.cover' [/.Repository]
+                         (let [successfull_flow!
+                               (case [good_upload! good_download!]
+                                 [{try.#Success _} {try.#Success actual}]
+                                 (# binary.equivalence = expected actual)
 
-                                _
-                                false)
+                                 _
+                                 false)
 
-                              failed_flow!
-                              (case [bad_upload! bad_download!]
-                                [{try.#Failure _} {try.#Failure _}]
-                                true
+                               failed_flow!
+                               (case [bad_upload! bad_download!]
+                                 [{try.#Failure _} {try.#Failure _}]
+                                 true
 
-                                _
-                                false)]
-                          (and successfull_flow!
-                               failed_flow!))))
-            ))))
+                                 _
+                                 false)]
+                           (and successfull_flow!
+                                failed_flow!))))
+             ))))
-- 
cgit v1.2.3