diff options
author | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
commit | 94e5802f594a73245fce0fbd885103b8bf210d57 (patch) | |
tree | 65e5799c0be40f5f015b39bfa6c87c9c27fd9424 /stdlib/source/program/aedifex/command/auto.lux | |
parent | b491dfff00219d5206075ea65468e00ab657075d (diff) |
Added some simple time-series handling machinery.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/command/auto.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux index a5f02d37f..61ff6c78f 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 - (at fs sub_directories) - (at ! each (|>> (try.else (list)) + (of fs sub_directories) + (of ! each (|>> (try.else (list)) (monad.each ! (targets fs)))) - (at ! conjoint) - (at ! each (|>> list.together (list.partial path)))))) + (of ! conjoint) + (of ! each (|>> list.together (list.partial path)))))) (def .public delay Nat @@ -56,14 +56,14 @@ (the ///.#sources) set.list (monad.each ! (..targets fs)) - (at ! each list.together))] + (of ! each list.together))] (do [! ///action.monad] - [_ (monad.each ! (at watcher start watch.modification) targets) + [_ (monad.each ! (of watcher start watch.modification) targets) _ <call>] (loop (again [_ []]) (do ! [_ (..pause delay) - events (at watcher poll [])] + events (of watcher poll [])] (when events {.#Item _} (do ! |