From 36303d6cb2ce3ab9e36d045b9516c997bd461862 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 24 Aug 2021 05:23:45 -0400
Subject: Outsourced the syntax for labelled type definitions to macros.

---
 stdlib/source/program/aedifex/command/clean.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 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 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)))
-- 
cgit v1.2.3