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

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

diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux
index f6c75114f..63f9e6f90 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -67,7 +67,7 @@
 (def content
   (Random Binary)
   (do [! random.monad]
-    [content_size (at ! each (n.% 100) random.nat)]
+    [content_size (of ! each (n.% 100) random.nat)]
     (_binary.random content_size)))
 
 (def package
@@ -85,7 +85,7 @@
   (do [! random.monad]
     [[main_dependency main_package] ..package
      dependencies (|> (//package.dependencies main_package)
-                      (at try.monad each set.list)
+                      (of try.monad each set.list)
                       (try.else (list))
                       (monad.each ! (function (_ dependency)
                                       (do !
@@ -108,7 +108,7 @@
      home (random.alphabetic 5)
      working_directory (random.alphabetic 5)
      .let [fs (is (file.System Async)
-                  (file.mock (at file.default separator)))
+                  (file.mock (of file.default separator)))
            program (program.async (program.mock environment.empty home working_directory))]]
     (in (do async.monad
           [wrote! (/.write_one program fs dependency expected_package)
@@ -118,7 +118,7 @@
                 (do try.monad
                   [_ wrote!
                    actual_package read!]
-                  (in (at //package.equivalence =
+                  (in (of //package.equivalence =
                           (has //package.#origin {//repository/origin.#Local ""} expected_package)
                           actual_package)))))))))
 
@@ -129,7 +129,7 @@
      home (random.alphabetic 5)
      working_directory (random.alphabetic 5)
      .let [fs (is (file.System Async)
-                  (file.mock (at file.default separator)))
+                  (file.mock (of file.default separator)))
            program (program.async (program.mock environment.empty home working_directory))]]
     (in (do async.monad
           [wrote! (/.write_all program fs expected)
@@ -139,8 +139,8 @@
                 (do try.monad
                   [_ wrote!
                    actual read!]
-                  (in (at //dependency/resolution.equivalence =
-                          (at dictionary.functor each
+                  (in (of //dependency/resolution.equivalence =
+                          (of dictionary.functor each
                               (has //package.#origin {//repository/origin.#Local ""})
                               expected)
                           actual)))))))))
-- 
cgit v1.2.3