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

(limited to 'stdlib/source/program/aedifex/command/build.lux')

diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index 107ae46a4..71c87d8ce 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -121,7 +121,7 @@
 
 (def (path fs home dependency)
   (All (_ !) (-> (file.System !) Path Dependency Path))
-  (let [/ (at fs separator)
+  (let [/ (of fs separator)
         artifact (the ///dependency.#artifact dependency)]
     (|> artifact
         (///local.uri (the ///artifact.#version artifact))
@@ -177,7 +177,7 @@
                          version (the ///artifact.#version artifact)]
                      (when (dictionary.value identity uniques)
                        {.#Some [current_version current_path]}
-                       (if (at version_order < version current_version)
+                       (if (of version_order < version current_version)
                          (dictionary.has identity [version dependency] uniques)
                          uniques)
                        
@@ -211,7 +211,7 @@
      (let [[read! write!] (is [(Async (Try Any))
                                (async.Resolver (Try Any))]
                               (async.async []))
-           _ (|> (at process <capability> [])
+           _ (|> (of process <capability> [])
                  (async.upon! (function (again ?line)
                                 (when ?line
                                   {try.#Failure error}
@@ -228,7 +228,7 @@
 
                                                    {try.#Success _}
                                                    (async.upon! again
-                                                                (at process <capability> []))))
+                                                                (of process <capability> []))))
                                                (is (Async (Try Any))
                                                    (console.write_line line console))))))
                  io.run!)]
@@ -285,8 +285,8 @@
 
         {.#Some [program_module program_definition]}
         (do async.monad
-          [.let [home (at environment home)
-                 working_directory (at environment directory)]
+          [.let [home (of environment home)
+                 working_directory (of environment directory)]
            environment (environment.environment async.monad environment)]
           (do ///action.monad
             [[resolution lux] (async#in (..lux resolution (the ///.#lux profile)))
@@ -309,7 +309,7 @@
                       [#Python ///.#java "program.py"]
                       [#Lua ///.#java "program.lua"]
                       [#Ruby ///.#java (file.rooted fs "program" ruby_packager.main_file)]))
-                   / (at fs separator)
+                   / (of fs separator)
                    cache_directory (format working_directory / target)]
              _ (is (Async (Try Any))
                    (console.write_line ..start console))
@@ -325,13 +325,13 @@
                                                           _ (list#composite (..singular "--module" program_module)
                                                                             (..singular "--program" program_definition)))
                                                         (..singular "--configuration" (configuration.format (the ///.#configuration profile)))))]
-             process (at shell execute [(dictionary.composite environment command_environment)
+             process (of shell execute [(dictionary.composite environment command_environment)
                                         working_directory
                                         command
                                         full_parameters])
              _ (..log_output! console process)
              _ (..log_error! console process)
-             exit (at process await [])
+             exit (of process await [])
              _ (is (Async (Try Any))
                    (console.write_line (if (i.= shell.normal exit)
                                          ..success
-- 
cgit v1.2.3