]> gerrit.simantics Code Review - simantics/platform.git/blob - bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/MonadBug1.scl
Remove unused import in DeleteHandler
[simantics/platform.git] / bundles / org.simantics.scl.compiler / tests / org / simantics / scl / compiler / tests / scl / MonadBug1.scl
1 class Monad m where\r
2    (>>=) :: m a -> (a -> m b) -> m b\r
3 \r
4 @macro\r
5 (>>) :: Monad m => m a -> m b -> m b\r
6 ma >> mb = ma >>= (\_ -> mb)\r
7 \r
8 main = "OK"\r
9 --\r
10 OK