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/pom.lux | 54 +++++++++++++++++++-------------------
 1 file changed, 27 insertions(+), 27 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/pom.lux b/stdlib/source/test/aedifex/pom.lux
index e6d5340e2..bf29cfeb5 100644
--- a/stdlib/source/test/aedifex/pom.lux
+++ b/stdlib/source/test/aedifex/pom.lux
@@ -25,33 +25,33 @@
 (def: .public test
   Test
   (<| (_.covering /._)
-      ($_ _.and
-          (_.cover [/.file]
-                   (|> /.file
-                       (text#= "")
-                       not))
-          (do random.monad
-            [expected @profile.random]
-            (_.cover [/.write /.parser]
-                     (case [(/.write expected)
-                            (the //.#identity expected)]
-                       [{try.#Success pom}
-                        {.#Some _}]
-                       (case (<xml>.result /.parser (list pom))
-                         {try.#Success actual}
-                         (# //.equivalence =
-                            (|> (# //.monoid identity)
-                                (has //.#dependencies (the //.#dependencies expected))
-                                (has //.#repositories (the //.#repositories expected)))
-                            actual)
+      (all _.and
+           (_.cover [/.file]
+                    (|> /.file
+                        (text#= "")
+                        not))
+           (do random.monad
+             [expected @profile.random]
+             (_.cover [/.write /.parser]
+                      (case [(/.write expected)
+                             (the //.#identity expected)]
+                        [{try.#Success pom}
+                         {.#Some _}]
+                        (case (<xml>.result /.parser (list pom))
+                          {try.#Success actual}
+                          (# //.equivalence =
+                             (|> (# //.monoid identity)
+                                 (has //.#dependencies (the //.#dependencies expected))
+                                 (has //.#repositories (the //.#repositories expected)))
+                             actual)
 
-                         {try.#Failure error}
-                         false)
+                          {try.#Failure error}
+                          false)
 
-                       [{try.#Failure error}
-                        {.#None}]
-                       (exception.match? //.no_identity error)
+                        [{try.#Failure error}
+                         {.#None}]
+                        (exception.match? //.no_identity error)
 
-                       _
-                       false)))
-          )))
+                        _
+                        false)))
+           )))
-- 
cgit v1.2.3