From 41495e32d3f5f88b5f189f48dd4fdbfa883c6ac0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 14 Mar 2022 18:27:37 -0400
Subject: De-sigil-ification: >

---
 stdlib/source/test/aedifex/parser.lux | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux
index 1d3168d93..f529c2d0a 100644
--- a/stdlib/source/test/aedifex/parser.lux
+++ b/stdlib/source/test/aedifex/parser.lux
@@ -6,7 +6,7 @@
     [monad {"+" do}]
     [hash {"+" Hash}]]
    [control
-    [pipe {"+" case>}]
+    ["[0]" pipe]
     ["[0]" try]
     [parser
      ["<[0]>" code]]]
@@ -84,16 +84,17 @@
                      //format.project
                      list
                      (<code>.result /.project)
-                     (case> {try.#Success actual}
-                            (|> expected
-                                ..with_empty_profile
-                                dictionary.entries
-                                (list#each (function (_ [name profile])
-                                             [name (|> profile
-                                                       ..with_default_sources
-                                                       ..with_default_repository)]))
-                                (dictionary.of_list text.hash)
-                                (# //project.equivalence = actual))
-                            
-                            {try.#Failure error}
-                            false))))))
+                     (pipe.case
+                       {try.#Success actual}
+                       (|> expected
+                           ..with_empty_profile
+                           dictionary.entries
+                           (list#each (function (_ [name profile])
+                                        [name (|> profile
+                                                  ..with_default_sources
+                                                  ..with_default_repository)]))
+                           (dictionary.of_list text.hash)
+                           (# //project.equivalence = actual))
+                       
+                       {try.#Failure error}
+                       false))))))
-- 
cgit v1.2.3