Added some simple time-series handling machinery.

1 files changed, 6 insertions, 6 deletions

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index 182ebf233..810893e99 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -90,7 +90,7 @@
 
          _
          (do async.monad
-           [_ (at environment exit exit_code)]
+           [_ (of environment exit exit_code)]
            (in {try.#Failure ""})))]
     (in output)))
 
@@ -104,13 +104,13 @@
 
 (def succeed!
   (IO Any)
-  (at environment.default exit shell.normal))
+  (of environment.default exit shell.normal))
 
 (def (fail! error)
   (-> Text (IO Any))
   (exec
     (debug.log! error)
-    (at environment.default exit shell.error)))
+    (of environment.default exit shell.error)))
 
 (def (command action)
   (All (_ a) (-> (Async (Try a)) (IO Any)))
@@ -124,7 +124,7 @@
 
          {try.#Failure error}
          (..fail! error))))
-    (at io.monad in [])))
+    (of io.monad in [])))
 
 (exception.def .public invalid_operation)
 
@@ -151,12 +151,12 @@
 (def _
   (program.program [[profiles operation] /cli.command]
     (do [! io.monad]
-      [console (at ! each (|>> (try.else ..write_only) console.async)
+      [console (of ! each (|>> (try.else ..write_only) console.async)
                    console.default)]
       (when operation
         {/cli.#Version}
         (..command
-         (/command/version.do! console (at /.monoid identity)))
+         (/command/version.do! console (of /.monoid identity)))
 
         _
         (do !