shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Tweaks

--- a/lib/Control/Monad.hs

+++ b/lib/Control/Monad.hs

@@ -96,7 +96,7 @@

   f <*> g = \ a -> f a (g a)

 instance forall a . Monad ((->) a) where

-  (>>=) x y z = y (x z) z

+  x >>= y = \ z -> y (x z) z

 {-

 -- Same for Maybe

-- 

⑨