Commit c80aabac authored by POTTIER Francois's avatar POTTIER Francois

Fix a test.

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