Commit 7527f247 by POTTIER Francois

New test.

parent 1e65a970
......@@ -5,7 +5,6 @@ type foo =
| B of int
| C of foo * foo [@build fun x y -> C (x, y)]
and point =
{ x: int; y: int } [@@build fun x y -> { x; y }]
[@@deriving visitors { variety = "map" }]
and point = Point.point = private { x: int; y: int }
[@@build Point.make]
[@@deriving visitors { variety = "map" }]
......@@ -7,6 +7,7 @@ mapReduce
map_from_fold
monopoly
opaque
point
polyclass
test00
test01
......
type point =
{ x: int; y: int }
let make x y = { x; y }
type point = private { x: int; y: int }
val make: int -> int -> point
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment