Author: Ralf Treinen <treinen@debian.org>
Description: The fields Type_variant and Type_record have lost the "private"
  field in the passage from ocaml 3.10 to 3.11.

--- trunk~/cmigrep.ml	2008-04-02 02:37:07.000000000 +0200
+++ trunk/cmigrep.ml	2009-03-02 21:01:16.000000000 +0100
@@ -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
