Relocated maybe and lazy from data to control.

3 files changed, 6 insertions, 6 deletions

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index f19575859..a88eb93a5 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -67,7 +67,7 @@
       (exec (debug.log! (format text.new_line
                                 failure_description text.new_line
                                 error text.new_line))
-        (io.run (\ world/program.default exit +1)))
+        (io.run! (\ world/program.default exit +1)))
 
       (#try.Success output)
       (in output))))
@@ -76,9 +76,9 @@
   (All [a]
     (-> (Async (Try a)) (Async (Try a))))
   (do async.monad
-    [.let [start (io.run instant.now)]
+    [.let [start (io.run! instant.now)]
      output process
-     .let [_ ("lux io log" (|> (io.run instant.now)
+     .let [_ ("lux io log" (|> (io.run! instant.now)
                                (instant.span start)
                                %.duration
                                (format "Duration: ")))]]
@@ -179,5 +179,5 @@
         ...       [console (|> console.default
         ...                    async.future
         ...                    (\ ! map (|>> try.assumed console.async)))]
-        ...       (interpreter.run (try.with async.monad) console platform interpretation generation_bundle)))
+        ...       (interpreter.run! (try.with async.monad) console platform interpretation generation_bundle)))
         ))))
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)