diff options
Diffstat (limited to 'stdlib/source/program/aedifex.lux')
| -rw-r--r-- | stdlib/source/program/aedifex.lux | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux index 0b2dda8f2..d876b5665 100644 --- a/stdlib/source/program/aedifex.lux +++ b/stdlib/source/program/aedifex.lux @@ -32,8 +32,9 @@ ["." syntax]]]]] [world ["." environment (#+ Environment)] - ["." file (#+ Path)] - ["." shell (#+ Shell)]]] + ["." shell (#+ Shell)] + ["." file (#+ Path) + ["." watch]]]] ["." / #_ ["#" profile] ["#." action (#+ Action)] @@ -127,10 +128,17 @@ (wrap []))) (#/cli.Auto auto) - (exec (case auto - #/cli.Build (..with-dependencies (/command/auto.do! /command/build.do!) profile) - #/cli.Test (..with-dependencies (/command/auto.do! /command/test.do!) profile)) - (wrap []))) + (do ! + [?watcher watch.default] + (case ?watcher + (#try.Failure error) + (wrap (log! error)) + + (#try.Success watcher) + (exec (case auto + #/cli.Build (..with-dependencies (/command/auto.do! watcher /command/build.do!) profile) + #/cli.Test (..with-dependencies (/command/auto.do! watcher /command/test.do!) profile)) + (wrap []))))) (#try.Failure error) (wrap (log! error))))) |