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/program/aedifex/metadata/snapshot.lux | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

(limited to 'stdlib/source/program/aedifex/metadata/snapshot.lux')

diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 7aa41ff78..83ba59279 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -5,7 +5,7 @@
     [monad {"+" do}]
     [equivalence {"+" Equivalence}]]
    [control
-    [pipe {"+" do> case>}]
+    ["[0]" pipe]
     ["[0]" try {"+" Try}]
     ["[0]" exception {"+" exception:}]
     ["<>" parser
@@ -99,11 +99,12 @@
                              (revised ///artifact/versioning.#versions
                                       (: (-> (List ///artifact/snapshot/version.Version)
                                              (List ///artifact/snapshot/version.Version))
-                                         (|>> (case> (^ (list))
-                                                     (list <default_version>)
+                                         (|>> (pipe.case
+                                                (^ (list))
+                                                (list <default_version>)
 
-                                                     versions
-                                                     versions)))))
+                                                versions
+                                                versions)))))
                           (<>.else [///artifact/versioning.#snapshot {///artifact/snapshot.#Local}
                                     ///artifact/versioning.#last_updated ///artifact/time.epoch
                                     ///artifact/versioning.#versions (list <default_version>)])))]
@@ -130,10 +131,10 @@
     (case project
       {try.#Success project}
       (in (|> project
-              (do> try.monad
-                   [(# utf8.codec decoded)]
-                   [(# xml.codec decoded)]
-                   [list (<xml>.result ..parser)])))
+              (pipe.do try.monad
+                [(# utf8.codec decoded)]
+                [(# xml.codec decoded)]
+                [list (<xml>.result ..parser)])))
       
       {try.#Failure error}
       (in {try.#Success
-- 
cgit v1.2.3