From f9e33ae96aec4741385a576719786092c9e68043 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 4 Jun 2022 19:34:42 -0400
Subject: De-sigil-ification: #

---
 stdlib/source/test/aedifex/repository/local.lux  | 10 +++++-----
 stdlib/source/test/aedifex/repository/remote.lux | 16 ++++++++--------
 2 files changed, 13 insertions(+), 13 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux
index 160410bc4..93bb28f1d 100644
--- a/stdlib/source/test/aedifex/repository/local.lux
+++ b/stdlib/source/test/aedifex/repository/local.lux
@@ -35,13 +35,13 @@
                repo (/.repository program fs)]
 
          uri (random.lower_case 10)
-         expected (# ! each (# utf8.codec encoded)
-                     (random.lower_case 10))]
+         expected (at ! each (at utf8.codec encoded)
+                      (random.lower_case 10))]
         (all _.and
              (in (do async.monad
-                   [before_upload (# repo download uri)
-                    _ (# repo upload uri expected)
-                    actual (# repo download uri)]
+                   [before_upload (at repo download uri)
+                    _ (at repo upload uri expected)
+                    actual (at repo download uri)]
                    (_.coverage' [/.repository]
                      (and (case before_upload
                             {try.#Success _} false
diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux
index 50ae42a09..440a74ac5 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -33,7 +33,7 @@
 
 (def: (url_body url)
   (-> URL (@http.Body IO))
-  (let [url (# utf8.codec encoded url)]
+  (let [url (at utf8.codec encoded url)]
     (function (_ _)
       (io.io {try.#Success [(binary.size url) url]}))))
 
@@ -90,21 +90,21 @@
          user (random.lower_case 10)
          password (random.lower_case 10)
 
-         content (# ! each (# utf8.codec encoded)
-                    (random.lower_case 10))]
+         content (at ! each (at utf8.codec encoded)
+                     (random.lower_case 10))]
         (all _.and
              (_.coverage [/.repository /.user_agent /.Address]
                (let [repo (/.repository (..good_http user password)
                                         {.#Some [//identity.#user user
                                                  //identity.#password password]}
                                         address)]
-                 (and (|> (# repo download uri)
+                 (and (|> (at repo download uri)
                           io.run!
-                          (try#each (# utf8.codec decoded))
+                          (try#each (at utf8.codec decoded))
                           try#conjoint
                           (try#each (text#= (format address uri)))
                           (try.else false))
-                      (|> (# repo upload uri content)
+                      (|> (at repo upload uri content)
                           io.run!
                           (try#each (function.constant true))
                           (try.else false)))))
@@ -112,7 +112,7 @@
                (let [repo (/.repository (..good_http user password)
                                         {.#None}
                                         address)]
-                 (case (io.run! (# repo upload uri content))
+                 (case (io.run! (at repo upload uri content))
                    {try.#Failure error}
                    (exception.match? /.upload_failure error)
                    
@@ -122,7 +122,7 @@
                (let [repo (/.repository ..bad_http
                                         {.#None}
                                         address)]
-                 (case (io.run! (# repo download uri))
+                 (case (io.run! (at repo download uri))
                    {try.#Failure error}
                    (exception.match? /.download_failure error)
                    
-- 
cgit v1.2.3