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 +++++++-------
 stdlib/source/program/aedifex/command/build.lux  |  6 +++---
 stdlib/source/program/aedifex/command/clean.lux  |  8 ++++----
 stdlib/source/program/aedifex/command/deploy.lux |  2 +-
 stdlib/source/program/aedifex/command/pom.lux    |  4 ++--
 5 files changed, 17 insertions(+), 17 deletions(-)

(limited to 'stdlib/source/program/aedifex/command')

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 !
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index d3c5b17a0..bf7c95870 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -123,7 +123,7 @@
   (|>> dictionary.keys
        (list.only (|>> (value@ #///dependency.type)
                        (text\= ///artifact/type.lux_library)))
-       (list\map (..path fs home))))
+       (list\each (..path fs home))))
 
 (def: version_separator
   ".")
@@ -175,7 +175,7 @@
                  (: (Dictionary [Group Name] [Version Dependency])
                     (dictionary.empty (product.hash text.hash text.hash))))
        dictionary.values
-       (list\map (|>> product.right (..path fs home)))))
+       (list\each (|>> product.right (..path fs home)))))
 
 (def: (singular name)
   (-> Text Text (List Text))
@@ -183,7 +183,7 @@
 
 (def: (plural name)
   (-> Text (List Text) (List Text))
-  (|>> (list\map (|>> (list name))) list.together))
+  (|>> (list\each (|>> (list name))) list.together))
 
 (def: .public start "[BUILD STARTED]")
 (def: .public success "[BUILD ENDED]")
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)))
diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux
index 62ec8e985..fc0562699 100644
--- a/stdlib/source/program/aedifex/command/deploy.lux
+++ b/stdlib/source/program/aedifex/command/deploy.lux
@@ -63,7 +63,7 @@
                  (value@ #/.sources)
                  set.list
                  (export.library fs)
-                 (\ ! map (binary.result tar.writer)))
+                 (\ ! each (binary.result tar.writer)))
      pom (\ async.monad in (///pom.write profile))
      _ (///dependency/deployment.one
         repository
diff --git a/stdlib/source/program/aedifex/command/pom.lux b/stdlib/source/program/aedifex/command/pom.lux
index c43982a98..9c449a0b9 100644
--- a/stdlib/source/program/aedifex/command/pom.lux
+++ b/stdlib/source/program/aedifex/command/pom.lux
@@ -29,8 +29,8 @@
   (-> (Console Async) (file.System Async) (Command Any))
   (do ///action.monad
     [content (|> (///pom.write profile)
-                 (try\map (|>> (\ xml.codec encoded)
-                               (\ utf8.codec encoded)))
+                 (try\each (|>> (\ xml.codec encoded)
+                                (\ utf8.codec encoded)))
                  async\in)
      _ (\ fs write content ///pom.file)]
     (console.write_line ..success console)))
-- 
cgit v1.2.3