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

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

diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 13039d9d3..5fad232b1 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -62,7 +62,7 @@
            
            (#.Cons head tail)
            (do (try.with !)
-             [_ (!.use (:: fs create-file) [head])]
+             [_ (!.use (\ fs create-file) [head])]
              (do !
                [_ (promise.future (atom.write [runs tail] @runs))]
                (wrap (#try.Success [])))))))]))
@@ -71,7 +71,7 @@
   Test
   (<| (_.covering /._)
       (do {! random.monad}
-        [#let [/ (:: file.default separator)
+        [#let [/ (\ file.default separator)
                [fs watcher] (watch.mock /)
                shell (shell.mock
                       (function (_ [actual-environment actual-working-directory actual-command actual-arguments])
@@ -93,13 +93,13 @@
          program (random.ascii/alpha 5)
          target (random.ascii/alpha 5)
          working-directory (random.ascii/alpha 5)
-         expected-runs (:: ! map (|>> (n.% 10) (n.max 2)) random.nat)
+         expected-runs (\ ! map (|>> (n.% 10) (n.max 2)) random.nat)
          source (random.ascii/alpha 5)
          dummy-files (|> (random.ascii/alpha 5)
                          (random.set text.hash (dec expected-runs))
-                         (:: ! map (|>> set.to-list (list\map (|>> (format source /))))))
+                         (\ ! map (|>> set.to-list (list\map (|>> (format source /))))))
          #let [empty-profile (: Profile
-                                (:: ///.monoid identity))
+                                (\ ///.monoid identity))
                with-target (: (-> Profile Profile)
                               (set@ #///.target (#.Some target)))
                with-program (: (-> Profile Profile)
@@ -128,8 +128,8 @@
                #let [[@runs command] (..command end-signal dummy-files)]]
               (wrap (do promise.monad
                       [verdict (do ///action.monad
-                                 [_ (!.use (:: fs create-directory) [source])
-                                  _ (:: watcher poll [])
+                                 [_ (!.use (\ fs create-directory) [source])
+                                  _ (\ watcher poll [])
                                   #let [resolution (|> ///dependency/resolution.empty
                                                        (dictionary.put compiler-dependency compiler-package))]]
                                  (do promise.monad
-- 
cgit v1.2.3