diff options
Diffstat (limited to 'stdlib/source/program/aedifex.lux')
| -rw-r--r-- | stdlib/source/program/aedifex.lux | 72 |
1 files changed, 36 insertions, 36 deletions
diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux index 758397321..6bc8f1f90 100644 --- a/stdlib/source/program/aedifex.lux +++ b/stdlib/source/program/aedifex.lux @@ -66,9 +66,9 @@ (def: repositories (-> /.Profile (List (Repository Async))) - (|>> (value@ #/.repositories) + (|>> (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) @@ -79,7 +79,7 @@ [resolution (/command/deps.do! console (/repository/local.repository program (file.async file.default)) (..repositories profile) - (|>> (/repository/remote.repository http.default #.None) + (|>> (/repository/remote.repository http.default {.#None}) /repository.async) profile) [exit_code output] ((command console program (file.async file.default) (shell.async shell.default) resolution) profile) @@ -90,7 +90,7 @@ _ (do async.monad [_ (\ program exit exit_code)] - (in {#try.Failure ""})))] + (in {try.#Failure ""})))] (in output))) (exception: (cannot_find_repository [repository Text @@ -117,10 +117,10 @@ [outcome action] (async.future (case outcome - {#try.Success _} + {try.#Success _} ..succeed! - {#try.Failure error} + {try.#Failure error} (..fail! error)))) (\ io.monad in []))) @@ -128,12 +128,12 @@ (do [! io.monad] [?console console.default] (case (try\each console.async ?console) - {#try.Failure error} + {try.#Failure error} (..fail! error) - {#try.Success console} + {try.#Success console} (case operation - #/cli.Version + {/cli.#Version} (..command (/command/version.do! console (\ /.monoid identity))) @@ -141,72 +141,72 @@ (do ! [?profile (/input.read io.monad file.default profiles)] (case ?profile - {#try.Failure error} + {try.#Failure error} (..fail! error) - {#try.Success profile} + {try.#Success profile} (let [program (program.async program.default)] (case operation - #/cli.Version + {/cli.#Version} (in []) - #/cli.Clean + {/cli.#Clean} (..command (/command/clean.do! console (file.async file.default) profile)) - #/cli.POM + {/cli.#POM} (..command (/command/pom.do! console (file.async file.default) profile)) - #/cli.Install + {/cli.#Install} (..command (let [fs (file.async file.default)] (/command/install.do! console fs (/repository/local.repository program fs) profile))) - {#/cli.Deploy repository identity} + {/cli.#Deploy repository identity} (..command - (case (value@ #/.identity profile) - {#.Some artifact} - (case (dictionary.value repository (value@ #/.deploy_repositories profile)) - {#.Some repository} + (case (value@ /.#identity profile) + {.#Some artifact} + (case (dictionary.value repository (value@ /.#deploy_repositories profile)) + {.#Some repository} (/command/deploy.do! console - (/repository.async (/repository/remote.repository http.default {#.Some identity} repository)) + (/repository.async (/repository/remote.repository http.default {.#Some identity} repository)) (file.async file.default) artifact profile) - #.None - (async\in (exception.except ..cannot_find_repository [repository (value@ #/.deploy_repositories profile)]))) + {.#None} + (async\in (exception.except ..cannot_find_repository [repository (value@ /.#deploy_repositories profile)]))) - #.None + {.#None} (async\in (exception.except /.no_identity [])))) - #/cli.Dependencies + {/cli.#Dependencies} (..command (/command/deps.do! console (/repository/local.repository program (file.async file.default)) (..repositories profile) - (|>> (/repository/remote.repository http.default #.None) + (|>> (/repository/remote.repository http.default {.#None}) /repository.async) profile)) - {#/cli.Compilation compilation} + {/cli.#Compilation compilation} (case compilation - #/cli.Build (..command - (..with_dependencies program console /command/build.do! profile)) - #/cli.Test (..command - (..with_dependencies program console /command/test.do! profile))) + {/cli.#Build} (..command + (..with_dependencies program console /command/build.do! profile)) + {/cli.#Test} (..command + (..with_dependencies program console /command/test.do! profile))) - {#/cli.Auto auto} + {/cli.#Auto auto} (do ! [?watcher watch.default] (case ?watcher - {#try.Failure error} + {try.#Failure error} (..fail! error) - {#try.Success watcher} + {try.#Success watcher} (..command (case auto - #/cli.Build (..with_dependencies program console (/command/auto.do! /command/auto.delay watcher /command/build.do!) profile) - #/cli.Test (..with_dependencies program console (/command/auto.do! /command/auto.delay watcher /command/test.do!) profile))))))) + {/cli.#Build} (..with_dependencies program console (/command/auto.do! /command/auto.delay watcher /command/build.do!) profile) + {/cli.#Test} (..with_dependencies program console (/command/auto.do! /command/auto.delay watcher /command/test.do!) profile))))))) )))))) |