diff options
author | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
commit | 94e5802f594a73245fce0fbd885103b8bf210d57 (patch) | |
tree | 65e5799c0be40f5f015b39bfa6c87c9c27fd9424 /stdlib/source/program/aedifex.lux | |
parent | b491dfff00219d5206075ea65468e00ab657075d (diff) |
Added some simple time-series handling machinery.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex.lux | 12 |
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 ! |