Supply SVG text editor with element measurement context

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

class Monad m where
   (>>=) :: m a -> (a -> m b) -> m b

@macro
(>>) :: Monad m => m a -> m b -> m b
ma >> mb = ma >>= (\_ -> mb)

main = "OK"
--
OK