Commit c80aabac by POTTIER Francois

Fix a test.

parent c54b05dd
......@@ -8,7 +8,11 @@ type cloud =
[@@name "nuage"]
[@@deriving visitors { variety = "map"; ancestors = ["base"] }]
type 'a mylist = 'a list =
| [] [@name "nil"]
| (::) of 'a * 'a mylist [@name "cons"]
[@@deriving visitors { variety = "map" }]
module List = struct
type 'a mylist = 'a list =
| [] [@name "nil"]
| (::) of 'a * 'a mylist [@name "cons"]
[@@deriving visitors { variety = "map" }]
end
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