diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux index 6bc8f1f90..6732e711f 100644 --- a/stdlib/source/program/aedifex.lux +++ b/stdlib/source/program/aedifex.lux @@ -8,12 +8,12 @@ [control [pipe {"+" [do>]}] ["[0]" io {"+" [IO]}] - ["[0]" try {"+" [Try]} ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]} ("[1]#[0]" functor)] ["[0]" exception {"+" [exception:]}] [parser [environment {"+" [Environment]}]] [concurrency - ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]] + ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]]] [data [binary {"+" [Binary]}] ["[0]" text @@ -25,7 +25,7 @@ [collection ["[0]" set] ["[0]" dictionary {"+" [Dictionary]}] - ["[0]" list ("[1]\[0]" functor)]]] + ["[0]" list ("[1]#[0]" functor)]]] [tool [compiler [language @@ -68,7 +68,7 @@ (-> /.Profile (List (Repository Async))) (|>> (value@ /.#repositories) set.list - (list\each (|>> (/repository/remote.repository http.default {.#None}) /repository.async)))) + (list#each (|>> (/repository/remote.repository http.default {.#None}) /repository.async)))) (def: (with_dependencies program console command profile) (All (_ a) @@ -89,7 +89,7 @@ _ (do async.monad - [_ (\ program exit exit_code)] + [_ (# program exit exit_code)] (in {try.#Failure ""})))] (in output))) @@ -103,13 +103,13 @@ (def: succeed! (IO Any) - (\ program.default exit shell.normal)) + (# program.default exit shell.normal)) (def: (fail! error) (-> Text (IO Any)) (exec (debug.log! error) - (\ program.default exit shell.error))) + (# program.default exit shell.error))) (def: (command action) (All (_ a) (-> (Async (Try a)) (IO Any))) @@ -122,12 +122,12 @@ {try.#Failure error} (..fail! error)))) - (\ io.monad in []))) + (# io.monad in []))) (program: [[profiles operation] /cli.command] (do [! io.monad] [?console console.default] - (case (try\each console.async ?console) + (case (try#each console.async ?console) {try.#Failure error} (..fail! error) @@ -135,7 +135,7 @@ (case operation {/cli.#Version} (..command - (/command/version.do! console (\ /.monoid identity))) + (/command/version.do! console (# /.monoid identity))) _ (do ! @@ -176,10 +176,10 @@ profile) {.#None} - (async\in (exception.except ..cannot_find_repository [repository (value@ /.#deploy_repositories profile)]))) + (async#in (exception.except ..cannot_find_repository [repository (value@ /.#deploy_repositories profile)]))) {.#None} - (async\in (exception.except /.no_identity [])))) + (async#in (exception.except /.no_identity [])))) {/cli.#Dependencies} (..command |