diff options
Diffstat (limited to 'stdlib/source/program/aedifex.lux')
| -rw-r--r-- | stdlib/source/program/aedifex.lux | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux index 160720fa7..aac616597 100644 --- a/stdlib/source/program/aedifex.lux +++ b/stdlib/source/program/aedifex.lux @@ -33,7 +33,7 @@ [world ["." shell (#+ Shell)] ["." console (#+ Console)] - ["." program] + ["." program (#+ Program)] ["." file (#+ Path) ["." watch]]]] ["." / #_ @@ -68,13 +68,11 @@ (def: (with-dependencies console command profile) (All [a] (-> (Console Promise) - (-> (Console Promise) Environment (file.System Promise) (Shell Promise) Resolution (Command a)) + (-> (Console Promise) (Program Promise) (file.System Promise) (Shell Promise) Resolution (Command a)) (Command a))) - (do promise.monad - [environment (promise.future (\ program.default environment []))] - (do /action.monad - [resolution (/command/deps.do! console (file.async file.default) (..repositories profile) profile)] - ((command console environment (file.async file.default) (shell.async shell.default) resolution) profile)))) + (do /action.monad + [resolution (/command/deps.do! console (file.async file.default) (..repositories profile) profile)] + ((command console (program.async program.default) (file.async file.default) (shell.async shell.default) resolution) profile))) (exception: (cannot-find-repository {repository Text} {options (Dictionary Text Address)}) |