diff options
Diffstat (limited to 'stdlib/source/lux/data/error.lux')
-rw-r--r-- | stdlib/source/lux/data/error.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/data/error.lux b/stdlib/source/lux/data/error.lux index 5e7f07601..6e9f12cb0 100644 --- a/stdlib/source/lux/data/error.lux +++ b/stdlib/source/lux/data/error.lux @@ -10,13 +10,13 @@ (#Success a)) ## [Structures] -(struct: #export _ (F.Functor Error) +(structure: #export _ (F.Functor Error) (def: (map f ma) (case ma (#Error msg) (#Error msg) (#Success datum) (#Success (f datum))))) -(struct: #export _ (A.Apply Error) +(structure: #export _ (A.Apply Error) (def: functor Functor<Error>) (def: (apply ff fa) @@ -33,7 +33,7 @@ (#Error msg)) )) -(struct: #export _ (Monad Error) +(structure: #export _ (Monad Error) (def: functor Functor<Error>) (def: (wrap a) @@ -44,7 +44,7 @@ (#Error msg) (#Error msg) (#Success ma) ma))) -(struct: #export (ErrorT Monad<M>) +(structure: #export (ErrorT Monad<M>) (All [M] (-> (Monad M) (Monad (All [a] (M (Error a)))))) (def: functor (F.compose (get@ #M.functor Monad<M>) Functor<Error>)) |