From 94e5802f594a73245fce0fbd885103b8bf210d57 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 2 Dec 2022 19:33:00 -0400
Subject: Added some simple time-series handling machinery.

---
 stdlib/source/program/aedifex/command/auto.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 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 a5f02d37f..61ff6c78f 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -29,11 +29,11 @@
   (-> (file.System Async) file.Path (Async (List file.Path)))
   (let [! async.monad]
     (|> path
-        (at fs sub_directories)
-        (at ! each (|>> (try.else (list))
+        (of fs sub_directories)
+        (of ! each (|>> (try.else (list))
                         (monad.each ! (targets fs))))
-        (at ! conjoint)
-        (at ! each (|>> list.together (list.partial path))))))
+        (of ! conjoint)
+        (of ! each (|>> list.together (list.partial path))))))
 
 (def .public delay
   Nat
@@ -56,14 +56,14 @@
                        (the ///.#sources)
                        set.list
                        (monad.each ! (..targets fs))
-                       (at ! each list.together))]
+                       (of ! each list.together))]
           (do [! ///action.monad]
-            [_ (monad.each ! (at watcher start watch.modification) targets)
+            [_ (monad.each ! (of watcher start watch.modification) targets)
              _ <call>]
             (loop (again [_ []])
               (do !
                 [_ (..pause delay)
-                 events (at watcher poll [])]
+                 events (of watcher poll [])]
                 (when events
                   {.#Item _}
                   (do !
-- 
cgit v1.2.3