Blame camlp4/test/fixtures/type_decl.ml
|
Packit |
1f8b6b |
module M = struct
|
|
Packit |
1f8b6b |
type t = A of int * int * int * int * int * int * int * int * int * int
|
|
Packit |
1f8b6b |
| B | B | B | B | B | B | B | B
|
|
Packit |
1f8b6b |
and t2 =
|
|
Packit |
1f8b6b |
| B | B | B | B | B | B | B | B
|
|
Packit |
1f8b6b |
and t3 =
|
|
Packit |
1f8b6b |
| B | B | B of a * a * a * a * a * a * a * a * a * a * a | B | B | B | B | B
|
|
Packit |
1f8b6b |
and t4 =
|
|
Packit |
1f8b6b |
| B | B | B | B | B | B | B | B
|
|
Packit |
1f8b6b |
and t5 =
|
|
Packit |
1f8b6b |
| B | B | B | B | B | B | B | B
|
|
Packit |
1f8b6b |
and t6 =
|
|
Packit |
1f8b6b |
| B | B | B | A of int * int * int * int * int * int * int * int * int * int * int * int * int * int * int * int * int * int * int | B | B | B | B | B
|
|
Packit |
1f8b6b |
and t7 =
|
|
Packit |
1f8b6b |
| B | B | B | B | B | B | B | B
|
|
Packit |
1f8b6b |
and t8 =
|
|
Packit |
1f8b6b |
| B | B | B | B | B | B | B | B
|
|
Packit |
1f8b6b |
and t9 =
|
|
Packit |
1f8b6b |
| B | B | B | B | B | B | B | B
|
|
Packit |
1f8b6b |
and t10 =
|
|
Packit |
1f8b6b |
| A of (a * a)
|
|
Packit |
1f8b6b |
end
|