diff options
| author | Eduardo Julian | 2019-07-02 23:36:02 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-07-02 23:36:02 -0400 |
| commit | 91c0619657bcf2ac520e7dd2912188f66bbe2157 (patch) | |
| tree | f26675f263eb5f0285c1674b0777a7369248fe07 /stdlib/source/program/scriptum.lux | |
| parent | 4f191540f831a7bba0e262b1a6b598f99fb9b35c (diff) | |
Re-name "lux/data/error" to "lux/control/try".
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/scriptum.lux | 10 |
1 files changed, 5 insertions, 5 deletions
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! _) |