aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/tool/compiler/meta/archive
diff options
context:
space:
mode:
authorEduardo Julian2019-07-02 23:36:02 -0400
committerEduardo Julian2019-07-02 23:36:02 -0400
commit91c0619657bcf2ac520e7dd2912188f66bbe2157 (patch)
treef26675f263eb5f0285c1674b0777a7369248fe07 /stdlib/source/lux/tool/compiler/meta/archive
parent4f191540f831a7bba0e262b1a6b598f99fb9b35c (diff)
Re-name "lux/data/error" to "lux/control/try".
Diffstat (limited to 'stdlib/source/lux/tool/compiler/meta/archive')
-rw-r--r--stdlib/source/lux/tool/compiler/meta/archive/document.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/lux/tool/compiler/meta/archive/document.lux b/stdlib/source/lux/tool/compiler/meta/archive/document.lux
index 505170efb..e6d5c0dfe 100644
--- a/stdlib/source/lux/tool/compiler/meta/archive/document.lux
+++ b/stdlib/source/lux/tool/compiler/meta/archive/document.lux
@@ -1,9 +1,9 @@
(.module:
[lux (#- Module)
[control
+ ["." try (#+ Try)]
["ex" exception (#+ exception:)]]
[data
- ["." error (#+ Error)]
[collection
["." dictionary (#+ Dictionary)]]]
[type (#+ :share)
@@ -24,16 +24,16 @@
#content d}
(def: #export (read key document)
- (All [d] (-> (Key d) (Document Any) (Error d)))
+ (All [d] (-> (Key d) (Document Any) (Try d)))
(let [[document//signature document//content] (:representation document)]
(if (:: signature.equivalence =
(key.signature key)
document//signature)
- (#error.Success (:share [e]
- {(Key e)
- key}
- {e
- document//content}))
+ (#try.Success (:share [e]
+ {(Key e)
+ key}
+ {e
+ document//content}))
(ex.throw invalid-signature [(key.signature key)
document//signature]))))