Outsourced the syntax for labelled type definitions to macros.

1 files changed, 4 insertions, 4 deletions

diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index 9e55ccc83..5ff16928f 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -23,8 +23,8 @@
   (let [! ///action.monad]
     (|> root
         (\ fs directory_files)
-        (\ ! map (monad.map ! (\ fs delete)))
-        (\ ! join))))
+        (\ ! each (monad.each ! (\ fs delete)))
+        (\ ! conjoint))))
 
 (def: .public success
   (-> ///.Target Text)
@@ -42,8 +42,8 @@
                [_ (..clean_files! fs root)
                 _ (|> root
                       (\ fs sub_directories)
-                      (\ ! map (monad.map ! recur))
-                      (\ ! join))]
+                      (\ ! each (monad.each ! recur))
+                      (\ ! conjoint))]
                (\ fs delete root)))
            (\ ! in [])))]
     (console.write_line (..success target) console)))