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

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

diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux
index b33d6d911..6ead0475f 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -45,7 +45,7 @@
 (def (files prefix)
   (-> Path (Random (List [Path Binary])))
   (do [! random.monad]
-    [count (at ! each (n.% 10) random.nat)
+    [count (of ! each (n.% 10) random.nat)
      names (random.set text.hash count ..node_name)
      contents (random.list count ($binary.random 100))]
     (in (list.zipped_2 (list#each (|>> (format prefix)) (set.list names))
@@ -53,7 +53,7 @@
 
 (def (create_file! fs [path content])
   (-> (file.System Async) [Path Binary] (Async (Try Any)))
-  (at fs write path content))
+  (of fs write path content))
 
 (def (create_directory! fs path files)
   (-> (file.System Async) Path (List [Path Binary]) (Async (Try Any)))
@@ -65,11 +65,11 @@
 
 (def (directory_exists? fs)
   (-> (file.System Async) Path (Async (Try Bit)))
-  (|>> (at fs directory?) (try.lifted async.monad)))
+  (|>> (of fs directory?) (try.lifted async.monad)))
 
 (def (file_exists? fs)
   (-> (file.System Async) Path (Async (Try Bit)))
-  (|>> (at fs file?) (try.lifted async.monad)))
+  (|>> (of fs file?) (try.lifted async.monad)))
 
 (def (assets_exist? fs directory_path files)
   (-> (file.System Async) Path (List [Path Binary]) (Async (Try Bit)))
@@ -89,8 +89,8 @@
         [context ..node_name
          target ..node_name
          sub ..node_name
-         .let [fs (file.mock (at file.default separator))
-               / (at fs separator)
+         .let [fs (file.mock (of file.default separator))
+               / (of fs separator)
                target_path (format context / target)
                sub_path (format target_path / sub)]
          direct_files (..files (format target_path /))
@@ -109,7 +109,7 @@
                           context_exists!/post (..directory_exists? fs context)
                           target_exists!/post (..assets_exist? fs target_path direct_files)
                           sub_exists!/post (..assets_exist? fs sub_path sub_files)
-                          logging (at console read_line [])]
+                          logging (of console read_line [])]
                          (in (and (and context_exists!/pre
                                        context_exists!/post)
                                   (and target_exists!/pre
-- 
cgit v1.2.3