From eea741e9b4a47ae09832311d6d61f0bd6024f673 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 31 Oct 2020 02:59:48 -0400
Subject: Easy to use Rev constants.

---
 stdlib/source/program/aedifex/command/auto.lux | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux
index 738cae467..8150fa1f6 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -64,17 +64,17 @@
   (promise.future
    (loop [path path]
      (let [file (java/io/File::new path)]
-       (do {@ (try.with io.monad)}
+       (do {! (try.with io.monad)}
          [exists? (java/io/File::exists file)
           directory? (java/io/File::isDirectory file)]
          (if (and exists?
                   directory?)
-           (do @
+           (do !
              [children (java/io/File::listFiles file)
               children (|> children
                            array.to-list
-                           (monad.map @ (|>> java/io/File::getAbsolutePath)))
-              descendants (monad.map @ recur children)]
+                           (monad.map ! (|>> java/io/File::getAbsolutePath)))
+              descendants (monad.map ! recur children)]
              (wrap (#.Cons path (list.concat descendants))))
            (wrap (list))))))))
 
@@ -118,22 +118,22 @@
 
 (def: #export (do! command profile)
   (All [a] (-> (Command a) (Command Any)))
-  (do {@ ///action.monad}
+  (do {! ///action.monad}
     [#let [fs (java/nio/file/FileSystems::getDefault)]
      watcher (promise.future (java/nio/file/FileSystem::newWatchService fs))
      targets (|> profile
                  (get@ #///.sources)
                  set.to-list
-                 (monad.map @ ..targets)
-                 (:: @ map list.concat))
-     _ (monad.map @ (..watch! watcher) targets)
+                 (monad.map ! ..targets)
+                 (:: ! map list.concat))
+     _ (monad.map ! (..watch! watcher) targets)
      _ (command profile)]
     (loop [_ []]
-      (do @
+      (do !
         [?key (..poll! watcher)
          _ (case ?key
              (#.Some key)
-             (do @
+             (do !
                [_ (promise.future (..drain! watcher))
                 _ (command profile)]
                (wrap []))
-- 
cgit v1.2.3