]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/LambdaMatch.scl
Merge "List the unsatisfied dependencies in CanvasContext"
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / LambdaMatch.scl
1 import "Prelude"\r
2 \r
3 f :: Maybe String -> String\r
4 f = \match\r
5      Just a -> a\r
6      Nothing -> ""\r
7 \r
8 main = f Nothing + f (Just "foo")\r
9 --\r
10 foo\r