From a62ce3f9c2b605e0033f4772b0f64c4525de4d86 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 11 Aug 2021 02:38:59 -0400
Subject: Relocated maybe and lazy from data to control.

---
 stdlib/source/program/compositor/export.lux | 2 +-
 stdlib/source/program/compositor/import.lux | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/program/compositor')

diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux
index b229b36ba..309678908 100644
--- a/stdlib/source/program/compositor/export.lux
+++ b/stdlib/source/program/compositor/export.lux
@@ -65,7 +65,7 @@
 (def: .public (export fs [sources target])
   (-> (file.System Async) Export (Async (Try Any)))
   (do {! (try.with async.monad)}
-    [tar (\ ! map (binary.run tar.writer)
+    [tar (\ ! map (binary.result tar.writer)
             (..library fs sources))]
     (|> ..file
         (format target (\ fs separator))
diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux
index a96f722d9..ca72f9749 100644
--- a/stdlib/source/program/compositor/import.lux
+++ b/stdlib/source/program/compositor/import.lux
@@ -48,7 +48,7 @@
     (|> library
         (\ system read)
         (\ ! map (let [! try.monad]
-                   (|>> (\ ! map (<binary>.run tar.parser))
+                   (|>> (\ ! map (<binary>.result tar.parser))
                         (\ ! join)
                         (\ ! map (|>> row.list
                                       (monad.fold ! (function (_ entry import)
-- 
cgit v1.2.3