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/program/aedifex/command/clean.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/program/aedifex/command/clean.lux')

diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index f4f5e1f9e..618125a89 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -19,9 +19,9 @@
   (-> (Directory Promise) (Promise (Try Any)))
   (do {! ///action.monad}
     [nodes (: (Promise (Try (List (File Promise))))
-              (!.use (:: root files) []))
+              (!.use (\ root files) []))
      _ (monad.map ! (function (_ node)
-                      (!.use (:: node delete) []))
+                      (!.use (\ node delete) []))
                   nodes)]
     (wrap [])))
 
@@ -31,17 +31,17 @@
     (#.Some target)
     (do {! ///action.monad}
       [target (: (Promise (Try (Directory Promise)))
-                 (!.use (:: fs directory) target))
+                 (!.use (\ fs directory) target))
        _ (loop [root target]
            (do !
              [_ (..clean-files! root)
               subs (: (Promise (Try (List (Directory Promise))))
-                      (!.use (:: root directories) []))
+                      (!.use (\ root directories) []))
               _ (monad.map ! recur subs)]
-             (!.use (:: root discard) [])))]
+             (!.use (\ root discard) [])))]
       (exec (log! "No 'target' defined for clean-up.")
         (wrap [])))
     
     #.None
     (exec (log! "No 'target' defined for clean-up.")
-      (:: ///action.monad wrap []))))
+      (\ ///action.monad wrap []))))
-- 
cgit v1.2.3