aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/command/clean.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/clean.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/clean.lux')
-rw-r--r--stdlib/source/program/aedifex/command/clean.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index f4f5e1f9e..618125a89 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -19,9 +19,9 @@
(-> (Directory Promise) (Promise (Try Any)))
(do {! ///action.monad}
[nodes (: (Promise (Try (List (File Promise))))
- (!.use (:: root files) []))
+ (!.use (\ root files) []))
_ (monad.map ! (function (_ node)
- (!.use (:: node delete) []))
+ (!.use (\ node delete) []))
nodes)]
(wrap [])))
@@ -31,17 +31,17 @@
(#.Some target)
(do {! ///action.monad}
[target (: (Promise (Try (Directory Promise)))
- (!.use (:: fs directory) target))
+ (!.use (\ fs directory) target))
_ (loop [root target]
(do !
[_ (..clean-files! root)
subs (: (Promise (Try (List (Directory Promise))))
- (!.use (:: root directories) []))
+ (!.use (\ root directories) []))
_ (monad.map ! recur subs)]
- (!.use (:: root discard) [])))]
+ (!.use (\ root discard) [])))]
(exec (log! "No 'target' defined for clean-up.")
(wrap [])))
#.None
(exec (log! "No 'target' defined for clean-up.")
- (:: ///action.monad wrap []))))
+ (\ ///action.monad wrap []))))