From 9224e54bf175ebe13c3fae42f04b649413c737e7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 7 Apr 2022 03:27:59 -0400
Subject: De-sigil-ification: &

---
 stdlib/source/program/aedifex/command/clean.lux | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/program/aedifex/command/clean.lux')

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)
-- 
cgit v1.2.3