diff options
Diffstat (limited to 'stdlib/source/lux/data/error.lux')
| -rw-r--r-- | stdlib/source/lux/data/error.lux | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/stdlib/source/lux/data/error.lux b/stdlib/source/lux/data/error.lux index ce2f529b9..235eee147 100644 --- a/stdlib/source/lux/data/error.lux +++ b/stdlib/source/lux/data/error.lux @@ -64,3 +64,7 @@ (def: #export (lift-error Monad<M>) (All [M a] (-> (Monad M) (-> (M a) (M (Error a))))) (liftM Monad<M> (:: Monad<Error> wrap))) + +(def: #export (fail message) + (All [a] (-> Text (Error a))) + (#;Left message)) |