aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/command/clean.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-09-12 15:39:55 -0400
committerEduardo Julian2021-09-12 15:39:55 -0400
commit2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd (patch)
tree14bc8b5abe09b46ef005c3ff7cf132f1d98ddf0d /stdlib/source/program/aedifex/command/clean.lux
parentdda05bca0956af5e5b3875c4cc36e61aa04772e4 (diff)
Re-named \ => # && \\ => ##
Diffstat (limited to 'stdlib/source/program/aedifex/command/clean.lux')
-rw-r--r--stdlib/source/program/aedifex/command/clean.lux18
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index d175ae291..bbdec8763 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -22,9 +22,9 @@
(-> (file.System Async) Path (Async (Try Any)))
(let [! ///action.monad]
(|> root
- (\ fs directory_files)
- (\ ! each (monad.each ! (\ fs delete)))
- (\ ! conjoint))))
+ (# fs directory_files)
+ (# ! each (monad.each ! (# fs delete)))
+ (# ! conjoint))))
(def: .public success
(-> ///.Target Text)
@@ -34,16 +34,16 @@
(-> (Console Async) (file.System Async) (Command Any))
(do [! async.monad]
[.let [target (value@ ///.#target profile)]
- ? (\ fs directory? target)
+ ? (# fs directory? target)
_ (let [! ///action.monad]
(if ?
(loop [root target]
(do !
[_ (..clean_files! fs root)
_ (|> root
- (\ fs sub_directories)
- (\ ! each (monad.each ! recur))
- (\ ! conjoint))]
- (\ fs delete root)))
- (\ ! in [])))]
+ (# fs sub_directories)
+ (# ! each (monad.each ! recur))
+ (# ! conjoint))]
+ (# fs delete root)))
+ (# ! in [])))]
(console.write_line (..success target) console)))