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

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

diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 8982bc941..e858d46d2 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -42,15 +42,15 @@
     (case sources
       #.Nil
       (|> []
-          (:: try.monad wrap)
-          (:: promise.monad wrap))
+          (\ try.monad wrap)
+          (\ promise.monad wrap))
       
       (#.Cons head tail)
       (do (try.with promise.monad)
         [_ (: (Promise (Try Path))
               (file.make-directories promise.monad fs head))
          _ (: (Promise (Try (File Promise)))
-              (file.get-file promise.monad fs (format head (:: fs separator) head ".lux")))]
+              (file.get-file promise.monad fs (format head (\ fs separator) head ".lux")))]
         (recur tail)))))
 
 (def: (execute! fs sample)
@@ -66,24 +66,24 @@
   (<| (_.covering /._)
       (do random.monad
         [sample @profile.random
-         #let [fs (file.mock (:: file.default separator))]]
+         #let [fs (file.mock (\ file.default separator))]]
         (wrap (case (get@ #///.identity sample)
                 (#.Some identity)
                 (do {! promise.monad}
                   [verdict (do ///action.monad
                              [_ (..execute! fs sample)
                               #let [artifact-path (format (///local.path fs identity)
-                                                          (:: fs separator)
+                                                          (\ fs separator)
                                                           (///artifact.identity identity))
                                     library-path (format artifact-path ///artifact/extension.lux-library)
                                     pom-path (format artifact-path ///artifact/extension.pom)]
 
-                              library-exists! (:: promise.monad map
-                                                  exception.return
-                                                  (file.file-exists? promise.monad fs library-path))
-                              pom-exists! (:: promise.monad map
-                                              exception.return
-                                              (file.file-exists? promise.monad fs pom-path))]
+                              library-exists! (\ promise.monad map
+                                                 exception.return
+                                                 (file.file-exists? promise.monad fs library-path))
+                              pom-exists! (\ promise.monad map
+                                             exception.return
+                                             (file.file-exists? promise.monad fs pom-path))]
                              (wrap (and library-exists!
                                         pom-exists!)))]
                   (_.cover' [/.do!]
-- 
cgit v1.2.3