aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-09-12 15:39:55 -0400
committerEduardo Julian2021-09-12 15:39:55 -0400
commit2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd (patch)
tree14bc8b5abe09b46ef005c3ff7cf132f1d98ddf0d /stdlib/source/program/aedifex.lux
parentdda05bca0956af5e5b3875c4cc36e61aa04772e4 (diff)
Re-named \ => # && \\ => ##
Diffstat (limited to 'stdlib/source/program/aedifex.lux')
-rw-r--r--stdlib/source/program/aedifex.lux24
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