@@ -0,0 +1,25 @@
3+type Foo = (x :: Number | (y :: Number | (z :: Number)))
4+type Bar = (x :: Number, y :: Number, z :: Number)
5+type Baz = { w :: Number | Bar }
8+foo = { x: 0, y: 0, z: 0 }
11+bar = { x: 0, y: 0, z: 0 }
13+id' :: Object Foo -> Object Bar
23+baz = { x: 0, y: 0, z: 0, w: 0 }
25+main = Debug.Trace.trace "Done"