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/test/aedifex/command/clean.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux
index 30ef6eb6f..59908a364 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -43,10 +43,10 @@
 (def: (files prefix)
   (-> Path (Random (List [Path Binary])))
   (do {! random.monad}
-    [count (\ ! map (n.% 10) random.nat)
+    [count (\ ! each (n.% 10) random.nat)
      names (random.set text.hash count ..node_name)
      contents (random.list count ($binary.random 100))]
-    (in (list.zipped/2 (list\map (|>> (format prefix)) (set.list names))
+    (in (list.zipped/2 (list\each (|>> (format prefix)) (set.list names))
                        contents))))
 
 (def: (create_file! fs [path content])
@@ -58,7 +58,7 @@
   (do {! (try.with async.monad)}
     [_ (: (Async (Try Any))
           (file.make_directories async.monad fs path))
-     _ (monad.map ! (..create_file! fs) files)]
+     _ (monad.each ! (..create_file! fs) files)]
     (in [])))
 
 (def: (directory_exists? fs)
@@ -75,8 +75,8 @@
     [directory_exists? (..directory_exists? fs directory_path)
      files_exist? (: (Action (List Bit))
                      (|> files
-                         (list\map product.left)
-                         (monad.map ///action.monad (..file_exists? fs))))]
+                         (list\each product.left)
+                         (monad.each ///action.monad (..file_exists? fs))))]
     (in (and directory_exists?
              (list.every? (|>>) files_exist?)))))
 
-- 
cgit v1.2.3