]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/MonadBug1.scl
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
1 class Monad m where
2    (>>=) :: m a -> (a -> m b) -> m b
3
4 @macro
5 (>>) :: Monad m => m a -> m b -> m b
6 ma >> mb = ma >>= (\_ -> mb)
7
8 main = "OK"
9 --
10 OK