diff options
Diffstat (limited to 'stdlib/source/program/aedifex/command/auto.lux')
-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 f7ec7a315..c2df31df5 100644 --- a/stdlib/source/program/aedifex/command/auto.lux +++ b/stdlib/source/program/aedifex/command/auto.lux @@ -28,15 +28,15 @@ (def: (targets fs path) (-> (file.System Promise) Path (Promise (List Path))) (do {! promise.monad} - [?root (!.use (:: fs directory) [path])] + [?root (!.use (\ fs directory) [path])] (case ?root (#try.Success root) (loop [root root] (do ! - [subs (:: ! map (|>> (try.default (list))) - (!.use (:: root directories) []))] - (:: ! map (|>> list.concat (list& (!.use (:: root scope) []))) - (monad.map ! recur subs)))) + [subs (\ ! map (|>> (try.default (list))) + (!.use (\ root directories) []))] + (\ ! map (|>> list.concat (list& (!.use (\ root scope) []))) + (monad.map ! recur subs)))) (#try.Failure error) (wrap (list))))) @@ -58,14 +58,14 @@ (get@ #///.sources) set.to-list (monad.map ! (..targets fs)) - (:: ! map list.concat))] + (\ ! map list.concat))] (do {! ///action.monad} - [_ (monad.map ! (:: watcher start watch.all) targets) + [_ (monad.map ! (\ watcher start watch.all) targets) _ <call>] (loop [_ []] (do ! [_ (..pause []) - events (:: watcher poll []) + events (\ watcher poll []) _ (case events (#.Cons _) (do ! |