diff options
Diffstat (limited to 'stdlib/source/program/aedifex.lux')
-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 ! |