]> gerrit.simantics Code Review - simantics/platform.git/blob - Void3.scl
f13e9e732a469181f3837bcd8d29b0dba76be598
[simantics/platform.git] / Void3.scl
1 import "JavaBuiltin" as Java
2
3 data Foo = Foo ()
4
5
6 ff = Foo ()
7
8 gg () = 3 :: Integer
9
10 main = gg (match ff with Foo a -> a)
11 --
12 3