diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/command/auto.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux index dc922b4c1..07842d32e 100644 --- a/stdlib/source/program/aedifex/command/auto.lux +++ b/stdlib/source/program/aedifex/command/auto.lux @@ -29,11 +29,11 @@ (-> (file.System Async) file.Path (Async (List file.Path))) (let [! async.monad] (|> path - (# fs sub_directories) - (# ! each (|>> (try.else (list)) - (monad.each ! (targets fs)))) - (# ! conjoint) - (# ! each (|>> list.together (partial_list path)))))) + (at fs sub_directories) + (at ! each (|>> (try.else (list)) + (monad.each ! (targets fs)))) + (at ! conjoint) + (at ! each (|>> list.together (partial_list path)))))) (def: .public delay Nat @@ -56,14 +56,14 @@ (the ///.#sources) set.list (monad.each ! (..targets fs)) - (# ! each list.together))] + (at ! each list.together))] (do [! ///action.monad] - [_ (monad.each ! (# watcher start watch.modification) targets) + [_ (monad.each ! (at watcher start watch.modification) targets) _ <call>] (loop (again [_ []]) (do ! [_ (..pause delay) - events (# watcher poll [])] + events (at watcher poll [])] (case events {.#Item _} (do ! |