From 34e310622bdeb1d0588c0664c0e78cbaa84f837c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 2 Dec 2020 06:42:20 -0400
Subject: Re-named "::" and ":::" macros to "\" and "\\", to be consistent with
 the convention that only macros that deal with types may start with a colon.

---
 stdlib/source/test/aedifex/command/pom.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux
index 169318589..408debea6 100644
--- a/stdlib/source/test/aedifex/command/pom.lux
+++ b/stdlib/source/test/aedifex/command/pom.lux
@@ -33,7 +33,7 @@
   (<| (_.covering /._)
       (do random.monad
         [sample @profile.random
-         #let [fs (file.mock (:: file.default separator))]]
+         #let [fs (file.mock (\ file.default separator))]]
         (wrap (do {! promise.monad}
                 [outcome (/.do! fs sample)]
                 (case outcome
@@ -41,17 +41,17 @@
                   (do !
                     [verdict (do ///action.monad
                                [expected (|> (///pom.write sample)
-                                             (try\map (|>> (:: xml.codec encode) encoding.to-utf8))
-                                             (:: ! wrap))
+                                             (try\map (|>> (\ xml.codec encode) encoding.to-utf8))
+                                             (\ ! wrap))
                                 file (: (Promise (Try (File Promise)))
                                         (file.get-file promise.monad fs path))
-                                actual (!.use (:: file content) [])
+                                actual (!.use (\ file content) [])
 
                                 #let [expected-path!
                                       (text\= ///pom.file path)
 
                                       expected-content!
-                                      (:: binary.equivalence = expected actual)]]
+                                      (\ binary.equivalence = expected actual)]]
                                (wrap (and expected-path!
                                           expected-content!)))]
                     (_.cover' [/.do!]
-- 
cgit v1.2.3