From 2ae7dc30bf91d709a6038871e9c967dafb15cf49 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 24 Feb 2019 21:30:10 -0400
Subject: Improved the names of monad transformers.

---
 new-luxc/source/program.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'new-luxc/source/program.lux')

diff --git a/new-luxc/source/program.lux b/new-luxc/source/program.lux
index cee627708..0f761d70d 100644
--- a/new-luxc/source/program.lux
+++ b/new-luxc/source/program.lux
@@ -57,7 +57,7 @@
 (def: (timed action)
   (All [a]
     (-> (-> Any (IO (Error a))) (IO (Error a))))
-  (do (error.with-error io.monad)
+  (do (error.with io.monad)
     [start (: (IO (Error Instant))
               (error.lift io.monad instant.now))
      result (action [])
@@ -88,7 +88,7 @@
       (<| (or-crash! "Compilation failed:")
           ..timed
           (function (_ _)
-            (do (error.with-error io.monad)
+            (do (error.with io.monad)
               [state (: (IO (Error (statement.State+ host/jvm.Anchor host/jvm.Inst host/jvm.Definition)))
                         (platform.initialize platform common.bundle))
                ## _ (platform.compile platform (set@ #cli.module syntax.prelude configuration) state)
@@ -102,5 +102,5 @@
       ## TODO: Fix the interpreter...
       (undefined)
       ## (<| (or-crash! "Interpretation failed:")
-      ##     (interpreter.run (error.with-error io.monad) console platform configuration common.bundle))
+      ##     (interpreter.run (error.with io.monad) console platform configuration common.bundle))
       )))
-- 
cgit v1.2.3