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/clean.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 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 40609f4d4..83daefbd0 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -22,9 +22,9 @@
   (-> (file.System Async) Path (Async (Try Any)))
   (do [! ///action.monad]
     [_ (|> root
-           (at fs directory_files)
-           (at ! each (monad.each ! (at fs delete)))
-           (at ! conjoint))]
+           (of fs directory_files)
+           (of ! each (monad.each ! (of fs delete)))
+           (of ! conjoint))]
     (in [])))
 
 (def .public success
@@ -35,16 +35,16 @@
   (-> (Console Async) (file.System Async) (Command Any))
   (do [! async.monad]
     [.let [target (the ///.#target profile)]
-     ? (at fs directory? target)
+     ? (of fs directory? target)
      _ (let [! ///action.monad]
          (if ?
            (loop (again [root target])
              (do !
                [_ (..clean_files! fs root)
                 _ (|> root
-                      (at fs sub_directories)
-                      (at ! each (monad.each ! again))
-                      (at ! conjoint))]
-               (at fs delete root)))
-           (at ! in [])))]
+                      (of fs sub_directories)
+                      (of ! each (monad.each ! again))
+                      (of ! conjoint))]
+               (of fs delete root)))
+           (of ! in [])))]
     (console.write_line (..success target) console)))
-- 
cgit v1.2.3