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/clean.lux | |
parent | b491dfff00219d5206075ea65468e00ab657075d (diff) |
Added some simple time-series handling machinery.
Diffstat (limited to 'stdlib/source/program/aedifex/command/clean.lux')
-rw-r--r-- | stdlib/source/program/aedifex/command/clean.lux | 18 |
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 40609f4d4..83daefbd0 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))) (do [! ///action.monad] [_ (|> root - (at fs directory_files) - (at ! each (monad.each ! (at fs delete))) - (at ! conjoint))] + (of fs directory_files) + (of ! each (monad.each ! (of fs delete))) + (of ! conjoint))] (in []))) (def .public success @@ -35,16 +35,16 @@ (-> (Console Async) (file.System Async) (Command Any)) (do [! async.monad] [.let [target (the ///.#target profile)] - ? (at fs directory? target) + ? (of fs directory? target) _ (let [! ///action.monad] (if ? (loop (again [root target]) (do ! [_ (..clean_files! fs root) _ (|> root - (at fs sub_directories) - (at ! each (monad.each ! again)) - (at ! conjoint))] - (at fs delete root))) - (at ! in [])))] + (of fs sub_directories) + (of ! each (monad.each ! again)) + (of ! conjoint))] + (of fs delete root))) + (of ! in [])))] (console.write_line (..success target) console))) |