Join GitHub today
GitHub is home to over 28 million developers working together to host and review code, manage projects, and build software together.Sign up
Fix MPR#7414 #929
module Foo : sig module M(E: sig type t end) : sig type t val u: t -> t -> t end end = struct module M(E: sig type t end) = struct type t = (E.t, unit) Hashtbl.t let u = Hashtbl.fold (fun x () h -> Hashtbl.add h x (); h) end end
Coccinelle has also to be fixed. Here is another bit of code that was correctly typed by 4.04 and is now rejected with 4.05 beta.