From 72b9a7df489ea47b3e5470741fd39f6100d31676 Mon Sep 17 00:00:00 2001 From: Samuel Mimram Date: Sat, 18 Aug 2007 20:34:57 +0000 Subject: Imported Upstream version 8.1.pl1+dfsg --- kernel/modops.mli | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'kernel/modops.mli') diff --git a/kernel/modops.mli b/kernel/modops.mli index 55f81079..61761bb7 100644 --- a/kernel/modops.mli +++ b/kernel/modops.mli @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: modops.mli 9558 2007-01-30 14:58:42Z soubiran $ i*) +(*i $Id: modops.mli 9980 2007-07-12 13:32:37Z soubiran $ i*) (*i*) open Util @@ -21,6 +21,7 @@ open Mod_subst (* Various operations on modules and module types *) exception Circularity of string +exception Not_equiv_path (* recursively unfold MTBdent module types *) val scrape_modtype : env -> module_type_body -> module_type_body @@ -70,7 +71,7 @@ val error_incompatible_modtypes : val error_not_equal : module_path -> module_path -> 'a -val error_not_match : label -> specification_body -> 'a +val error_not_match : label -> string -> string -> 'a val error_incompatible_labels : label -> label -> 'a -- cgit v1.2.3