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/auto.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux
index 0a1998730..77a0c8714 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -30,10 +30,10 @@
   (let [! async.monad]
     (|> path
         (\ fs sub_directories)
-        (\ ! map (|>> (try.else (list))
-                      (monad.map ! (targets fs))))
-        (\ ! join)
-        (\ ! map (|>> list.together (list& path))))))
+        (\ ! each (|>> (try.else (list))
+                       (monad.each ! (targets fs))))
+        (\ ! conjoint)
+        (\ ! each (|>> list.together (list& path))))))
 
 (def: .public delay
   Nat
@@ -55,10 +55,10 @@
           [targets (|> profile
                        (value@ #///.sources)
                        set.list
-                       (monad.map ! (..targets fs))
-                       (\ ! map list.together))]
+                       (monad.each ! (..targets fs))
+                       (\ ! each list.together))]
           (do {! ///action.monad}
-            [_ (monad.map ! (\ watcher start watch.modification) targets)
+            [_ (monad.each ! (\ watcher start watch.modification) targets)
              _ <call>]
             (loop [_ []]
               (do !
-- 
cgit v1.2.3