diff options
Diffstat (limited to 'stdlib/source/program/aedifex.lux')
| -rw-r--r-- | stdlib/source/program/aedifex.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux index d14e5ba74..1de6b7d30 100644 --- a/stdlib/source/program/aedifex.lux +++ b/stdlib/source/program/aedifex.lux @@ -92,7 +92,7 @@ _ (do async.monad - [_ (# program exit exit_code)] + [_ (at program exit exit_code)] (in {try.#Failure ""})))] (in output))) @@ -106,13 +106,13 @@ (def: succeed! (IO Any) - (# program.default exit shell.normal)) + (at program.default exit shell.normal)) (def: (fail! error) (-> Text (IO Any)) (exec (debug.log! error) - (# program.default exit shell.error))) + (at program.default exit shell.error))) (def: (command action) (All (_ a) (-> (Async (Try a)) (IO Any))) @@ -126,7 +126,7 @@ {try.#Failure error} (..fail! error)))) - (# io.monad in []))) + (at io.monad in []))) (exception: .public invalid_operation) @@ -152,12 +152,12 @@ (program: [[profiles operation] /cli.command] (do [! io.monad] - [console (# ! each (|>> (try.else ..write_only) console.async) - console.default)] + [console (at ! each (|>> (try.else ..write_only) console.async) + console.default)] (case operation {/cli.#Version} (..command - (/command/version.do! console (# /.monoid identity))) + (/command/version.do! console (at /.monoid identity))) _ (do ! |