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/compositor/export.lux | 34 ++++++++++++++---------------
 1 file changed, 17 insertions(+), 17 deletions(-)

(limited to 'stdlib/source/program/compositor/export.lux')

diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux
index 309678908..a9c76f039 100644
--- a/stdlib/source/program/compositor/export.lux
+++ b/stdlib/source/program/compositor/export.lux
@@ -44,28 +44,28 @@
   (do (try.with async.monad)
     [files (io.listing fs sources)]
     (|> (dictionary.entries files)
-        (monad.map try.monad
-                   (function (_ [path source_code])
-                     (do try.monad
-                       [path (|> path
-                                 (text.replaced (\ fs separator) .module_separator)
-                                 tar.path)
-                        source_code (tar.content source_code)]
-                       (in (#tar.Normal [path
-                                         (instant.of_millis +0)
-                                         ($_ tar.and
-                                             tar.read_by_owner tar.write_by_owner
-                                             tar.read_by_group tar.write_by_group
-                                             tar.read_by_other)
-                                         ..no_ownership
-                                         source_code])))))
-        (\ try.monad map row.of_list)
+        (monad.each try.monad
+                    (function (_ [path source_code])
+                      (do try.monad
+                        [path (|> path
+                                  (text.replaced (\ fs separator) .module_separator)
+                                  tar.path)
+                         source_code (tar.content source_code)]
+                        (in (#tar.Normal [path
+                                          (instant.of_millis +0)
+                                          ($_ tar.and
+                                              tar.read_by_owner tar.write_by_owner
+                                              tar.read_by_group tar.write_by_group
+                                              tar.read_by_other)
+                                          ..no_ownership
+                                          source_code])))))
+        (\ try.monad each row.of_list)
         (\ async.monad in))))
 
 (def: .public (export fs [sources target])
   (-> (file.System Async) Export (Async (Try Any)))
   (do {! (try.with async.monad)}
-    [tar (\ ! map (binary.result tar.writer)
+    [tar (\ ! each (binary.result tar.writer)
             (..library fs sources))]
     (|> ..file
         (format target (\ fs separator))
-- 
cgit v1.2.3