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

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

diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index d942a9d17..5127ca1fc 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -42,7 +42,7 @@
 
 (def .public (make_sources! fs sources)
   (-> (file.System Async) (Set file.Path) (Action (List Any)))
-  (let [/ (at fs separator)
+  (let [/ (of fs separator)
         ! ///action.monad]
     (|> sources
         set.list
@@ -59,18 +59,18 @@
     [.let [console ($version.echo "")]
      _ (..make_sources! fs (the ///.#sources sample))
      _ (/.do! console fs (///repository/local.repository program fs) sample)]
-    (at console read_line [])))
+    (of console read_line [])))
 
 (def .public test
   Test
   (<| (_.covering /._)
       (do [! random.monad]
         [identity $artifact.random
-         sample (at ! each (has ///.#identity {.#Some identity})
+         sample (of ! each (has ///.#identity {.#Some identity})
                     $profile.random)
          home (random.alphabetic 5)
          working_directory (random.alphabetic 5)
-         .let [/ (at file.default separator)]]
+         .let [/ (of file.default separator)]]
         (all _.and
              (in (do [! async.monad]
                    [.let [fs (file.mock /)
@@ -80,16 +80,16 @@
                           library_path (format artifact_path ///artifact/extension.lux_library)
                           pom_path (format artifact_path ///artifact/extension.pom)]
                     verdict (do [! ///action.monad]
-                              [succeeded! (at ! each (text#= /.success)
+                              [succeeded! (of ! each (text#= /.success)
                                               (..execute! program fs sample))
                                library_exists! (|> library_path
                                                    (format home /)
-                                                   (at fs file?)
-                                                   (at async.monad each (|>> {try.#Success})))
+                                                   (of fs file?)
+                                                   (of async.monad each (|>> {try.#Success})))
                                pom_exists! (|> pom_path
                                                (format home /)
-                                               (at fs file?)
-                                               (at async.monad each (|>> {try.#Success})))]
+                                               (of fs file?)
+                                               (of async.monad each (|>> {try.#Success})))]
                               (in (and succeeded!
                                        library_exists!
                                        pom_exists!)))]
-- 
cgit v1.2.3