diff options
author | Eduardo Julian | 2021-08-13 04:18:57 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-08-13 04:18:57 -0400 |
commit | e53c1a090eb9cfac3cb23d10d981648d02518ed1 (patch) | |
tree | 6c92c186525b6e73032ebea68765b791bcc27516 /stdlib/source/program/aedifex.lux | |
parent | 17629d66062b88b040a2397032f6c08361a5f3a7 (diff) |
Made program: specify its bindings the same way as syntax:.
Diffstat (limited to 'stdlib/source/program/aedifex.lux')
-rw-r--r-- | stdlib/source/program/aedifex.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux index e6dae7bbc..05aee240b 100644 --- a/stdlib/source/program/aedifex.lux +++ b/stdlib/source/program/aedifex.lux @@ -124,7 +124,7 @@ (..fail! error)))) (\ io.monad in []))) -(program: [{[profile operation] /cli.command}] +(program: [[profile operation] /cli.command] (do {! io.monad} [?console console.default] (case (try\map console.async ?console) @@ -166,7 +166,7 @@ (#/cli.Deploy repository identity) (..command (case [(get@ #/.identity profile) - (dictionary.get repository (get@ #/.deploy_repositories profile))] + (dictionary.value repository (get@ #/.deploy_repositories profile))] [(#.Some artifact) (#.Some repository)] (/command/deploy.do! console (/repository.async (/repository/remote.repository http.default (#.Some identity) repository)) |