Merge commit 'b3da313'

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / MonadBug1.scl

class Monad m where\r
   (>>=) :: m a -> (a -> m b) -> m b\r
\r
@macro\r
(>>) :: Monad m => m a -> m b -> m b\r
ma >> mb = ma >>= (\_ -> mb)\r
\r
main = "OK"\r
--\r
OK