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

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

diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux
index 6f1516258..de27a0ee8 100644
--- a/stdlib/source/test/aedifex/parser.lux
+++ b/stdlib/source/test/aedifex/parser.lux
@@ -40,12 +40,12 @@
 (def: (list_of random)
   (All [a] (-> (Random a) (Random (List a))))
   (do {! random.monad}
-    [size (\ ! map (n.% 5) random.nat)]
+    [size (\ ! each (n.% 5) random.nat)]
     (random.list size random)))
 
 (def: (dictionary_of key_hash key_random value_random)
   (All [k v] (-> (Hash k) (Random k) (Random v) (Random (Dictionary k v))))
-  (\ random.functor map
+  (\ random.functor each
      (dictionary.of_list key_hash)
      (..list_of (random.and key_random value_random))))
 
@@ -104,10 +104,10 @@
                        (|> expected
                            ..with_empty_profile
                            dictionary.entries
-                           (list\map (function (_ [name profile])
-                                       [name (|> profile
-                                                 ..with_default_sources
-                                                 ..with_default_repository)]))
+                           (list\each (function (_ [name profile])
+                                        [name (|> profile
+                                                  ..with_default_sources
+                                                  ..with_default_repository)]))
                            (dictionary.of_list text.hash)
                            (\ //project.equivalence = actual))
                        
-- 
cgit v1.2.3