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.

---
 stdlib/source/program/licentia.lux | 2 +-
 stdlib/source/program/scriptum.lux | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/licentia.lux b/stdlib/source/program/licentia.lux
index 3300c380d..46fa8345f 100644
--- a/stdlib/source/program/licentia.lux
+++ b/stdlib/source/program/licentia.lux
@@ -55,7 +55,7 @@
                                    (cli.named "--output" cli.any))}]
   (do io.monad
     [?done (: (IO (Error Any))
-              (do (error.with-error io.monad)
+              (do (error.with io.monad)
                 [file (!.use (:: file.system file) input)
                  blob (!.use (:: file content) [])
                  document (io/wrap (do error.monad
diff --git a/stdlib/source/program/scriptum.lux b/stdlib/source/program/scriptum.lux
index 04570a9bb..a51a1765b 100644
--- a/stdlib/source/program/scriptum.lux
+++ b/stdlib/source/program/scriptum.lux
@@ -483,7 +483,7 @@
   (-> [Text (Markdown Block)] (IO Any))
   (let [path (format (text.replace-all "/" "_" module-name) ".md")]
     (do io.monad
-      [outcome (do (error.with-error io.monad)
+      [outcome (do (error.with io.monad)
                  [target (: (IO (Error (File IO)))
                             (file.get-file io.monad file.system path))]
                  (!.use (:: target over-write) (encoding.to-utf8 (md.markdown documentation))))]
-- 
cgit v1.2.3