diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/compiler/phase.lux')
| -rw-r--r-- | stdlib/source/library/lux/tool/compiler/phase.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/phase.lux b/stdlib/source/library/lux/tool/compiler/phase.lux index 7e137387e..22362318a 100644 --- a/stdlib/source/library/lux/tool/compiler/phase.lux +++ b/stdlib/source/library/lux/tool/compiler/phase.lux @@ -47,7 +47,7 @@ (-> s (Operation s o) (Try o))) (|> state operation - (\ try.monad map product.right))) + (\ try.monad each product.right))) (def: .public get_state (All [s o] @@ -82,7 +82,7 @@ (def: .public (lifted error) (All [s a] (-> (Try a) (Operation s a))) (function (_ state) - (try\map (|>> [state]) error))) + (try\each (|>> [state]) error))) (syntax: .public (assertion [exception <code>.any message <code>.any |