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/local.lux | 72 ++++++++++++-------------
 1 file changed, 36 insertions(+), 36 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux
index f3b8fed6b..c5da9011d 100644
--- a/stdlib/source/test/aedifex/repository/local.lux
+++ b/stdlib/source/test/aedifex/repository/local.lux
@@ -1,27 +1,27 @@
 (.using
-  [library
-   [lux "*"
-    ["_" test {"+" Test}]
-    [abstract
-     [monad {"+" do}]]
-    [control
-     ["[0]" try ("[1]#[0]" functor)]
-     [parser
-      ["[0]" environment]]
-     [concurrency
-      ["[0]" async]]]
-    [data
-     ["[0]" binary ("[1]#[0]" equivalence)]
-     [text
-      [encoding
-       ["[0]" utf8]]]]
-    [math
-     ["[0]" random]]
-    [world
-     ["[0]" file]
-     ["[0]" program]]]]
-  [\\program
-   ["[0]" /]])
+ [library
+  [lux "*"
+   ["_" test {"+" Test}]
+   [abstract
+    [monad {"+" do}]]
+   [control
+    ["[0]" try ("[1]#[0]" functor)]
+    [parser
+     ["[0]" environment]]
+    [concurrency
+     ["[0]" async]]]
+   [data
+    ["[0]" binary ("[1]#[0]" equivalence)]
+    [text
+     [encoding
+      ["[0]" utf8]]]]
+   [math
+    ["[0]" random]]
+   [world
+    ["[0]" file]
+    ["[0]" program]]]]
+ [\\program
+  ["[0]" /]])
 
 (def: .public test
   Test
@@ -37,16 +37,16 @@
          uri (random.ascii/lower 10)
          expected (# ! each (# utf8.codec encoded)
                      (random.ascii/lower 10))]
-        ($_ _.and
-            (in (do async.monad
-                  [before_upload (# repo download uri)
-                   _ (# repo upload uri expected)
-                   actual (# repo download uri)]
-                  (_.cover' [/.repository]
-                            (and (case before_upload
-                                   {try.#Success _} false
-                                   {try.#Failure _} true)
-                                 (|> actual
-                                     (try#each (binary#= expected))
-                                     (try.else false))))))
-            ))))
+        (all _.and
+             (in (do async.monad
+                   [before_upload (# repo download uri)
+                    _ (# repo upload uri expected)
+                    actual (# repo download uri)]
+                   (_.cover' [/.repository]
+                             (and (case before_upload
+                                    {try.#Success _} false
+                                    {try.#Failure _} true)
+                                  (|> actual
+                                      (try#each (binary#= expected))
+                                      (try.else false))))))
+             ))))
-- 
cgit v1.2.3