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/test/lux/tool/compiler/phase/analysis/structure.lux | |
| parent | 4f191540f831a7bba0e262b1a6b598f99fb9b35c (diff) | |
Re-name "lux/data/error" to "lux/control/try".
Diffstat (limited to 'stdlib/source/test/lux/tool/compiler/phase/analysis/structure.lux')
| -rw-r--r-- | stdlib/source/test/lux/tool/compiler/phase/analysis/structure.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/test/lux/tool/compiler/phase/analysis/structure.lux b/stdlib/source/test/lux/tool/compiler/phase/analysis/structure.lux index 156965a55..08344f23e 100644 --- a/stdlib/source/test/lux/tool/compiler/phase/analysis/structure.lux +++ b/stdlib/source/test/lux/tool/compiler/phase/analysis/structure.lux @@ -7,10 +7,10 @@ ["r" math/random (#+ Random) ("#@." monad)] ["_" test (#+ Test)] [control - pipe] + pipe + ["." try]] [data ["." bit ("#@." equivalence)] - ["." error] ["." product] ["." maybe] ["." text] @@ -36,7 +36,7 @@ [(def: #export <name> (All [a] (-> (Operation a) Bit)) (|>> (///.run _primitive.state) - (case> (#error.Success _) + (case> (#try.Success _) <on-success> _ @@ -64,7 +64,7 @@ (|> analysis (//type.with-type type) (///.run _primitive.state) - (case> (^ (#error.Success (////analysis.variant variant))) + (case> (^ (#try.Success (////analysis.variant variant))) (check-sum' tag size variant) _ @@ -82,7 +82,7 @@ (with-tags module tags variantT) (//type.with-type expectedT) (///.run _primitive.state) - (case> (^ (#error.Success [_ (////analysis.variant variant)])) + (case> (^ (#try.Success [_ (////analysis.variant variant)])) (check-sum' tag (list.size tags) variant) _ @@ -104,7 +104,7 @@ (with-tags module tags recordT) (//type.with-type expectedT) (///.run _primitive.state) - (case> (#error.Success [_ productA]) + (case> (#try.Success [_ productA]) (correct-size? size productA) _ @@ -138,7 +138,7 @@ (//type.with-type varT (/.sum _primitive.phase choice valueC))) (///.run _primitive.state) - (case> (^ (#error.Success (////analysis.variant variant))) + (case> (^ (#try.Success (////analysis.variant variant))) (check-sum' choice size variant) _ @@ -180,7 +180,7 @@ (|> (//type.with-type tupleT (/.product _primitive.phase (list@map product.right primitives))) (///.run _primitive.state) - (case> (#error.Success tupleA) + (case> (#try.Success tupleA) (correct-size? size tupleA) _ @@ -189,7 +189,7 @@ (|> (//type.with-inference (/.product _primitive.phase (list@map product.right primitives))) (///.run _primitive.state) - (case> (#error.Success [_type tupleA]) + (case> (#try.Success [_type tupleA]) (and (check.checks? tupleT _type) (correct-size? size tupleA)) @@ -207,7 +207,7 @@ (//type.with-type varT (/.product _primitive.phase (list@map product.right primitives)))) (///.run _primitive.state) - (case> (#error.Success tupleA) + (case> (#try.Success tupleA) (correct-size? size tupleA) _ |