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/command/auto.lux  | 11 ++++++-----
 stdlib/source/test/aedifex/command/build.lux | 13 +++++++------
 2 files changed, 13 insertions(+), 11 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index a9e9c56fb..bfdbb789e 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -5,7 +5,7 @@
    [abstract
     [monad {"+" do}]]
    [control
-    [pipe {"+" case>}]
+    ["[0]" pipe]
     ["[0]" try]
     [parser
      ["[0]" environment]]
@@ -110,11 +110,12 @@
                                                           fs
                                                           (shell.async ($build.good_shell []))
                                                           resolution)
-                                                         (# ! each (|>> (case> {try.#Failure error}
-                                                                               (same? end_signal error)
+                                                         (# ! each (|>> (pipe.case
+                                                                          {try.#Failure error}
+                                                                          (same? end_signal error)
 
-                                                                               {try.#Success _}
-                                                                               false))))
+                                                                          {try.#Success _}
+                                                                          false))))
                                 correct_number_of_runs! (|> @runs
                                                             atom.read!
                                                             async.future
diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index 0b8eac768..f8d2d46ec 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -5,8 +5,8 @@
    [abstract
     [monad {"+" do}]]
    [control
-    [pipe {"+" case>}]
     [io {"+" IO}]
+    ["[0]" pipe]
     ["[0]" try]
     ["[0]" exception]
     [concurrency
@@ -232,11 +232,12 @@
                                                  actual/1 (# console read_line [])
                                                  actual/2 (# console read_line [])
                                                  end! (|> (# console read_line [])
-                                                          (# ! each (|>> (case> {try.#Failure error}
-                                                                                true
-                                                                                
-                                                                                {try.#Success _}
-                                                                                false)
+                                                          (# ! each (|>> (pipe.case
+                                                                           {try.#Failure error}
+                                                                           true
+                                                                           
+                                                                           {try.#Success _}
+                                                                           false)
                                                                          {try.#Success})))]
                                                 (in (and (text#= expected/0 actual/0)
                                                          (text#= expected/1 actual/1)
-- 
cgit v1.2.3