diff options
Diffstat (limited to 'stdlib/source/lux/io.lux')
-rw-r--r-- | stdlib/source/lux/io.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/lux/io.lux b/stdlib/source/lux/io.lux index ca9d7b608..6e038aa7c 100644 --- a/stdlib/source/lux/io.lux +++ b/stdlib/source/lux/io.lux @@ -32,14 +32,14 @@ (struct: #export _ (Applicative IO) (def: functor Functor<IO>) - (def: (wrap x) - (io x)) - (def: (apply ff fa) (io ((ff (:! Void [])) (fa (:! Void [])))))) (struct: #export _ (Monad IO) - (def: applicative Applicative<IO>) + (def: functor Functor<IO>) + + (def: (wrap x) + (io x)) (def: (join mma) (io ((mma (:! Void [])) (:! Void []))))) @@ -60,14 +60,14 @@ (struct: #export _ (Applicative Process) (def: functor Functor<Process>) - (def: (wrap x) - (io (:: e.Applicative<Error> wrap x))) - (def: (apply ff fa) (io (:: e.Applicative<Error> apply (run ff) (run fa))))) (struct: #export _ (Monad Process) - (def: applicative Applicative<Process>) + (def: functor Functor<Process>) + + (def: (wrap x) + (io (:: e.Monad<Error> wrap x))) (def: (join mma) (case (run mma) |