@@ -29,21 +29,21 @@ module Diff2 = Diff
29
29
30
30
type rec tree <'value > =
31
31
| Nil
32
- | Node (tree <'value >, 'value , tree <'value >)
32
+ | Node (tree <'value >, 'value , tree <'value >)
33
33
34
34
type intTree = tree <int >
35
35
36
36
type rec tree2 <'value > =
37
37
| Niiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiil2
38
- | Noooooooooooooooooooooooooooooooooooode2 (tree2 <'value >, 'value , tree2 <'value >)
38
+ | Noooooooooooooooooooooooooooooooooooode2 (tree2 <'value >, 'value , tree2 <'value >)
39
39
40
40
type rec tree3 <'value > =
41
41
| Nil3
42
- | Node3 ({left : tree3 <'value >, value : 'value , right : tree3 <'value >})
42
+ | Node3 ({left : tree3 <'value >, value : 'value , right : tree3 <'value >})
43
43
44
44
type rec tree4 <'value > =
45
45
| Nil4
46
- | Node4 ({leeeeeeeeeeeeeeeeeeeeeeeeeeeeft : tree3 <'value >, vaaaaaaaaaaaaaaaaaaaaalue : 'value , riiiiiiiiiiiiiiiiiiiiiiight : tree3 <'value >})
46
+ | Node4 ({leeeeeeeeeeeeeeeeeeeeeeeeeeeeft : tree3 <'value >, vaaaaaaaaaaaaaaaaaaaaalue : 'value , riiiiiiiiiiiiiiiiiiiiiiight : tree3 <'value >})
47
47
48
48
type color = ..
49
49
@@ -137,7 +137,7 @@ let computeAreaPlus = (sp: shapePlus) =>
137
137
138
138
let computeAreaExotic = (sp ) =>
139
139
switch sp {
140
- | # "R-Triangle+" (_p1 , _p2 , _p3 ) => ()
140
+ | # "R-Triangle+" (_p1 , _p2 , _p3 ) => ()
141
141
| #... shape as s => ignore (s ); ()
142
142
}
143
143
@@ -201,6 +201,8 @@ type exoticUser = {
201
201
}
202
202
203
203
module Js = {
204
+ type t <'a > = 'a
205
+
204
206
module Fn = {
205
207
type arity0 <'a > = {i0 : unit => 'a }
206
208
type arity1 <'a > = {i1 : 'a }
@@ -253,3 +255,8 @@ type arity20 = Js.Fn.arity20<(int, int, int, int, int, int, int, int, int, int,
253
255
type arity21 = Js .Fn .arity21 <(int , int , int , int , int , int , int , int , int , int , int , int , int , int , int , int , int , int , int , int , int ) => int >
254
256
type arity22 = Js .Fn .arity22 <(int , int , int , int , int , int , int , int , int , int , int , int , int , int , int , int , int , int , int , int , int , int ) => int >
255
257
258
+ type obj1 <'a > = option <Js .t <{"a" : int }>>
259
+ type obj2 = Js .t <{"a" : int }>
260
+ type obj3 = Js .t <{. "a" : int }>
261
+ type obj4 = {"a" : int }
262
+ type obj5 <'a > = Js .t <{.. } as 'a >
0 commit comments