--- cmigrep-1.5.orig/cmigrep.ml 2008-04-02 01:37:07.000000000 +0100 +++ cmigrep-1.5/cmigrep.ml 2008-11-20 17:13:39.000000000 +0000 @@ -304,7 +304,7 @@ (function | Tsig_type (id, type_decl, _rec_status) -> begin match type_decl.type_kind with - | Type_variant (constructors, _private) -> + | Type_variant constructors -> List.iter (fun (name, type_exprs) -> if Pcre.pmatch ~rex:exp name then begin @@ -382,7 +382,7 @@ (function | Tsig_type (id, type_decl, _rec_status) -> begin match type_decl.type_kind with - | Type_record (labels, _, _) -> + | Type_record (labels, _) -> List.iter (fun (name, mutable_flag, type_expr) -> if Pcre.pmatch ~rex:exp name then begin