aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex.lux')
-rw-r--r--stdlib/source/program/aedifex.lux134
1 files changed, 67 insertions, 67 deletions
diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index e61b08397..af302a16b 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -1,71 +1,71 @@
(.using
- [library
- [lux "*"
- [program {"+" program:}]
- ["[0]" debug]
- [abstract
- [monad {"+" do}]]
- [control
- [pipe {"+" do>}]
- ["[0]" io {"+" IO}]
- ["[0]" try {"+" Try} ("[1]#[0]" functor)]
- ["[0]" exception {"+" exception:}]
- [parser
- [environment {"+" Environment}]]
- [concurrency
- ["[0]" async {"+" Async} ("[1]#[0]" monad)]]]
- [data
- [binary {"+" Binary}]
- ["[0]" text
- ["%" format {"+" format}]
- [encoding
- ["[0]" utf8]]]
- [format
- ["[0]" xml]]
- [collection
- ["[0]" set]
- ["[0]" dictionary {"+" Dictionary}]
- ["[0]" list ("[1]#[0]" functor)]]]
- [tool
- [compiler
- [language
- [lux
- ["[0]" syntax]]]]]
- [world
- ["[0]" shell {"+" Exit Shell}]
- ["[0]" console {"+" Console}]
- ["[0]" program {"+" Program}]
- ["[0]" file {"+" Path}
- ["[0]" watch]]
- [net
- ["[0]" http "_"
- ["[1]" client]]]]]]
- ["[0]" / "_"
- ["[1]" profile]
- ["[1][0]" action {"+" Action}]
- ["[1][0]" project {"+" Project}]
- ["[1][0]" input]
- ["[1][0]" pom]
- ["[1][0]" cli]
- ["[1][0]" dependency "_"
- ["[1]" resolution {"+" Resolution}]]
- ["[1][0]" repository {"+" Repository}
- ["[1]/[0]" remote {"+" Address}]
- ["[1]/[0]" local]]
- ["[1][0]" command {"+" Command}
- ["[1]/[0]" version]
- ["[1]/[0]" clean]
- ["[1]/[0]" pom]
- ["[1]/[0]" install]
- ["[1]/[0]" deps]
- ["[1]/[0]" build]
- ["[1]/[0]" test]
- ["[1]/[0]" auto]
- ["[1]/[0]" deploy]]])
+ [library
+ [lux "*"
+ [program {"+" program:}]
+ ["[0]" debug]
+ [abstract
+ [monad {"+" do}]]
+ [control
+ [pipe {"+" do>}]
+ ["[0]" io {"+" IO}]
+ ["[0]" try {"+" Try} ("[1]#[0]" functor)]
+ ["[0]" exception {"+" exception:}]
+ [parser
+ [environment {"+" Environment}]]
+ [concurrency
+ ["[0]" async {"+" Async} ("[1]#[0]" monad)]]]
+ [data
+ [binary {"+" Binary}]
+ ["[0]" text
+ ["%" format {"+" format}]
+ [encoding
+ ["[0]" utf8]]]
+ [format
+ ["[0]" xml]]
+ [collection
+ ["[0]" set]
+ ["[0]" dictionary {"+" Dictionary}]
+ ["[0]" list ("[1]#[0]" functor)]]]
+ [tool
+ [compiler
+ [language
+ [lux
+ ["[0]" syntax]]]]]
+ [world
+ ["[0]" shell {"+" Exit Shell}]
+ ["[0]" console {"+" Console}]
+ ["[0]" program {"+" Program}]
+ ["[0]" file {"+" Path}
+ ["[0]" watch]]
+ [net
+ ["[0]" http "_"
+ ["[1]" client]]]]]]
+ ["[0]" / "_"
+ ["[1]" profile]
+ ["[1][0]" action {"+" Action}]
+ ["[1][0]" project {"+" Project}]
+ ["[1][0]" input]
+ ["[1][0]" pom]
+ ["[1][0]" cli]
+ ["[1][0]" dependency "_"
+ ["[1]" resolution {"+" Resolution}]]
+ ["[1][0]" repository {"+" Repository}
+ ["[1]/[0]" remote {"+" Address}]
+ ["[1]/[0]" local]]
+ ["[1][0]" command {"+" Command}
+ ["[1]/[0]" version]
+ ["[1]/[0]" clean]
+ ["[1]/[0]" pom]
+ ["[1]/[0]" install]
+ ["[1]/[0]" deps]
+ ["[1]/[0]" build]
+ ["[1]/[0]" test]
+ ["[1]/[0]" auto]
+ ["[1]/[0]" deploy]]])
(def: repositories
(-> /.Profile (List (Repository Async)))
- (|>> (value@ /.#repositories)
+ (|>> (the /.#repositories)
set.list
(list#each (|>> (/repository/remote.repository http.default {.#None}) /repository.async))))
@@ -164,9 +164,9 @@
{/cli.#Deploy repository identity}
(..command
- (case (value@ /.#identity profile)
+ (case (the /.#identity profile)
{.#Some artifact}
- (case (dictionary.value repository (value@ /.#deploy_repositories profile))
+ (case (dictionary.value repository (the /.#deploy_repositories profile))
{.#Some repository}
(/command/deploy.do! console
(/repository.async (/repository/remote.repository http.default {.#Some identity} repository))
@@ -175,7 +175,7 @@
profile)
{.#None}
- (async#in (exception.except ..cannot_find_repository [repository (value@ /.#deploy_repositories profile)])))
+ (async#in (exception.except ..cannot_find_repository [repository (the /.#deploy_repositories profile)])))
{.#None}
(async#in (exception.except /.no_identity []))))