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

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

diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index f1c0c2de1..93d304d36 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -45,12 +45,12 @@
         ! ///action.monad]
     (|> sources
         set.list
-        (monad.map ! (function (_ head)
-                       (do !
-                         [_ (: (Async (Try Any))
-                               (file.make_directories async.monad fs head))]
-                         (: (Async (Try Any))
-                            (file.make_file async.monad fs (binary.empty 0) (format head / head ".lux")))))))))
+        (monad.each ! (function (_ head)
+                        (do !
+                          [_ (: (Async (Try Any))
+                                (file.make_directories async.monad fs head))]
+                          (: (Async (Try Any))
+                             (file.make_file async.monad fs (binary.empty 0) (format head / head ".lux")))))))))
 
 (def: (execute! program fs sample)
   (-> (Program Async) (file.System Async) ///.Profile (Async (Try Text)))
@@ -65,7 +65,7 @@
   (<| (_.covering /._)
       (do {! random.monad}
         [identity $artifact.random
-         sample (\ ! map (with@ #///.identity (#.Some identity))
+         sample (\ ! each (with@ #///.identity (#.Some identity))
                    $profile.random)
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
@@ -79,16 +79,16 @@
                          library_path (format artifact_path ///artifact/extension.lux_library)
                          pom_path (format artifact_path ///artifact/extension.pom)]
                    verdict (do {! ///action.monad}
-                             [succeeded! (\ ! map (text\= /.success)
+                             [succeeded! (\ ! each (text\= /.success)
                                             (..execute! program fs sample))
                               library_exists! (|> library_path
                                                   (format home /)
                                                   (\ fs file?)
-                                                  (\ async.monad map (|>> #try.Success)))
+                                                  (\ async.monad each (|>> #try.Success)))
                               pom_exists! (|> pom_path
                                               (format home /)
                                               (\ fs file?)
-                                              (\ async.monad map (|>> #try.Success)))]
+                                              (\ async.monad each (|>> #try.Success)))]
                              (in (and succeeded!
                                       library_exists!
                                       pom_exists!)))]
@@ -100,6 +100,6 @@
                    logging (..execute! program fs (with@ #///.identity #.None sample))]
                   (_.cover' [/.failure]
                             (|> logging
-                                (try\map (text\= /.failure))
+                                (try\each (text\= /.failure))
                                 (try.else false)))))
             ))))
-- 
cgit v1.2.3