diff options
| author | Eduardo Julian | 2022-04-07 03:27:59 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-04-07 03:27:59 -0400 |
| commit | 9224e54bf175ebe13c3fae42f04b649413c737e7 (patch) | |
| tree | dab2b19f79e79020792ee0bfe0fb6abe522639a3 /stdlib/source/program/aedifex/command/clean.lux | |
| parent | 7542b0addd9eaf01dd5f1c4c8a39b67f51a4bd06 (diff) | |
De-sigil-ification: &
Diffstat (limited to 'stdlib/source/program/aedifex/command/clean.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/command/clean.lux | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux index 16bfce404..98f1461a8 100644 --- a/stdlib/source/program/aedifex/command/clean.lux +++ b/stdlib/source/program/aedifex/command/clean.lux @@ -20,11 +20,12 @@ (def: (clean_files! fs root) (-> (file.System Async) Path (Async (Try Any))) - (let [! ///action.monad] - (|> root - (# fs directory_files) - (# ! each (monad.each ! (# fs delete))) - (# ! conjoint)))) + (do [! ///action.monad] + [_ (|> root + (# fs directory_files) + (# ! each (monad.each ! (# fs delete))) + (# ! conjoint))] + (in []))) (def: .public success (-> ///.Target Text) |