From 91c0619657bcf2ac520e7dd2912188f66bbe2157 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 2 Jul 2019 23:36:02 -0400
Subject: Re-name "lux/data/error" to "lux/control/try".

---
 stdlib/source/program/scriptum.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/program/scriptum.lux b/stdlib/source/program/scriptum.lux
index 569371900..3775fd006 100644
--- a/stdlib/source/program/scriptum.lux
+++ b/stdlib/source/program/scriptum.lux
@@ -4,6 +4,7 @@
     ["." monad (#+ do)]]
    [control
     [pipe (#+ when>)]
+    ["." try (#+ Try)]
     ["ex" exception (#+ exception:)]
     [security
      ["!" capability]]]
@@ -11,7 +12,6 @@
    [data
     ["." maybe]
     ["." product]
-    ["." error (#+ Error)]
     [format
      ["md" markdown (#+ Markdown Span Block)]]
     ["." text ("#;." equivalence)
@@ -484,15 +484,15 @@
   (-> [Text (Markdown Block)] (IO Any))
   (let [path (format (text.replace-all "/" "_" module-name) ".md")]
     (do io.monad
-      [outcome (do (error.with io.monad)
-                 [target (: (IO (Error (File IO)))
+      [outcome (do (try.with io.monad)
+                 [target (: (IO (Try (File IO)))
                             (file.get-file io.monad file.system path))]
                  (!.use (:: target over-write) (encoding.to-utf8 (md.markdown documentation))))]
       (case outcome
-        (#error.Failure error)
+        (#try.Failure error)
         (wrap (log! (ex.construct io-error error)))
 
-        (#error.Success _)
+        (#try.Success _)
         (wrap [])))))
 
 (macro: (gen-documentation! _)
-- 
cgit v1.2.3