Commit 7527f247 authored by POTTIER Francois's avatar POTTIER Francois

New test.

parent 1e65a970
...@@ -5,7 +5,6 @@ type foo = ...@@ -5,7 +5,6 @@ type foo =
| B of int | B of int
| C of foo * foo [@build fun x y -> C (x, y)] | C of foo * foo [@build fun x y -> C (x, y)]
and point = and point = Point.point = private { x: int; y: int }
{ x: int; y: int } [@@build fun x y -> { x; y }] [@@build Point.make]
[@@deriving visitors { variety = "map" }]
[@@deriving visitors { variety = "map" }]
...@@ -7,6 +7,7 @@ mapReduce ...@@ -7,6 +7,7 @@ mapReduce
map_from_fold map_from_fold
monopoly monopoly
opaque opaque
point
polyclass polyclass
test00 test00
test01 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