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

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

diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux
index 91870d680..143766eb6 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -64,7 +64,7 @@
 (def: content
   (Random Binary)
   (do {! random.monad}
-    [content_size (\ ! map (n.% 100) random.nat)]
+    [content_size (\ ! each (n.% 100) random.nat)]
     (_binary.random content_size)))
 
 (def: package
@@ -82,20 +82,20 @@
   (do {! random.monad}
     [[main_dependency main_package] ..package
      dependencies (|> (//package.dependencies main_package)
-                      (\ try.monad map set.list)
+                      (\ try.monad each set.list)
                       (try.else (list))
-                      (monad.map ! (function (_ dependency)
-                                     (do !
-                                       [pom (random.one (function (_ [identity profile pom])
-                                                          (|> profile
-                                                              (with@ #//.dependencies (set.empty //dependency.hash))
-                                                              (with@ #//.identity (#.Some (value@ #//dependency.artifact dependency)))
-                                                              //pom.write
-                                                              try.maybe))
-                                                        ..profile)
-                                        content ..content]
-                                       (in [dependency
-                                            (with@ #//package.origin (#//repository/origin.Remote "") (//package.local pom content))])))))]
+                      (monad.each ! (function (_ dependency)
+                                      (do !
+                                        [pom (random.one (function (_ [identity profile pom])
+                                                           (|> profile
+                                                               (with@ #//.dependencies (set.empty //dependency.hash))
+                                                               (with@ #//.identity (#.Some (value@ #//dependency.artifact dependency)))
+                                                               //pom.write
+                                                               try.maybe))
+                                                         ..profile)
+                                         content ..content]
+                                        (in [dependency
+                                             (with@ #//package.origin (#//repository/origin.Remote "") (//package.local pom content))])))))]
     (in (dictionary.of_list //dependency.hash (list& [main_dependency main_package] dependencies)))))
 
 (def: singular
@@ -137,7 +137,7 @@
                           [_ wrote!
                            actual read!]
                           (in (\ //dependency/resolution.equivalence =
-                                 (\ dictionary.functor map
+                                 (\ dictionary.functor each
                                     (with@ #//package.origin (#//repository/origin.Local ""))
                                     expected)
                                  actual)))))))))
-- 
cgit v1.2.3