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.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

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)))
         ))))
-- 
cgit v1.2.3