aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/command/auto.lux
diff options
context:
space:
mode:
authorEduardo Julian2020-12-02 06:42:20 -0400
committerEduardo Julian2020-12-02 06:42:20 -0400
commit34e310622bdeb1d0588c0664c0e78cbaa84f837c (patch)
treeeb7c04185b57c781f45d0ccdb955bc9afc2aa8dc /stdlib/source/program/aedifex/command/auto.lux
parent982a19e0c5d57b53f9726b780fec4c18f0787b4f (diff)
Re-named "::" and ":::" macros to "\" and "\\", to be consistent with the convention that only macros that deal with types may start with a colon.
Diffstat (limited to 'stdlib/source/program/aedifex/command/auto.lux')
-rw-r--r--stdlib/source/program/aedifex/command/auto.lux16
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 !