Commit 5eb89f32 authored by POTTIER Francois's avatar POTTIER Francois

Updated test.

parent 2ceab3c4
......@@ -3,5 +3,9 @@
type foo =
| A
| B of int
| C of foo * foo
| 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" }]
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