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/test/aedifex/repository/remote.lux | 74 ++++++++++++------------
 1 file changed, 37 insertions(+), 37 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux
index bd2e68612..abf123f4b 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -92,40 +92,40 @@
 
          content (# ! each (# utf8.codec encoded)
                     (random.ascii/lower 10))]
-        ($_ _.and
-            (_.cover [/.repository /.user_agent /.Address]
-                     (let [repo (/.repository (..good_http user password)
-                                              {.#Some [//identity.#user user
-                                                       //identity.#password password]}
-                                              address)]
-                       (and (|> (# repo download uri)
-                                io.run!
-                                (try#each (# utf8.codec decoded))
-                                try#conjoint
-                                (try#each (text#= (format address uri)))
-                                (try.else false))
-                            (|> (# repo upload uri content)
-                                io.run!
-                                (try#each (function.constant true))
-                                (try.else false)))))
-            (_.cover [/.upload_failure]
-                     (let [repo (/.repository (..good_http user password)
-                                              {.#None}
-                                              address)]
-                       (case (io.run! (# repo upload uri content))
-                         {try.#Failure error}
-                         (exception.match? /.upload_failure error)
-                         
-                         {try.#Success _}
-                         false)))
-            (_.cover [/.download_failure]
-                     (let [repo (/.repository ..bad_http
-                                              {.#None}
-                                              address)]
-                       (case (io.run! (# repo download uri))
-                         {try.#Failure error}
-                         (exception.match? /.download_failure error)
-                         
-                         {try.#Success _}
-                         false)))
-            ))))
+        (all _.and
+             (_.cover [/.repository /.user_agent /.Address]
+                      (let [repo (/.repository (..good_http user password)
+                                               {.#Some [//identity.#user user
+                                                        //identity.#password password]}
+                                               address)]
+                        (and (|> (# repo download uri)
+                                 io.run!
+                                 (try#each (# utf8.codec decoded))
+                                 try#conjoint
+                                 (try#each (text#= (format address uri)))
+                                 (try.else false))
+                             (|> (# repo upload uri content)
+                                 io.run!
+                                 (try#each (function.constant true))
+                                 (try.else false)))))
+             (_.cover [/.upload_failure]
+                      (let [repo (/.repository (..good_http user password)
+                                               {.#None}
+                                               address)]
+                        (case (io.run! (# repo upload uri content))
+                          {try.#Failure error}
+                          (exception.match? /.upload_failure error)
+                          
+                          {try.#Success _}
+                          false)))
+             (_.cover [/.download_failure]
+                      (let [repo (/.repository ..bad_http
+                                               {.#None}
+                                               address)]
+                        (case (io.run! (# repo download uri))
+                          {try.#Failure error}
+                          (exception.match? /.download_failure error)
+                          
+                          {try.#Success _}
+                          false)))
+             ))))
-- 
cgit v1.2.3