Imported Upstream version 8.1+dfsgupstream/8.1+dfsg

1 files changed, 7 insertions, 1 deletions

diff --git a/kernel/modops.mli b/kernel/modops.mli
index 2aca6511..55f81079 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 8721 2006-04-15 15:30:04Z herbelin $ i*)
+(*i $Id: modops.mli 9558 2007-01-30 14:58:42Z soubiran $ i*)
 
 (*i*)
 open Util
@@ -20,6 +20,8 @@ open Mod_subst
 
 (* Various operations on modules and module types *)
 
+exception Circularity of string
+
 (* recursively unfold MTBdent module types *)
 val scrape_modtype : env -> module_type_body -> module_type_body
 
@@ -98,5 +100,9 @@ val error_local_context : label option -> 'a
 
 val error_circular_with_module : identifier -> 'a
 
+val error_circularity_in_subtyping : string->string->string-> 'a
+
+val error_no_such_label_sub : label->string->string->'a
+
 val resolver_of_environment :
  mod_bound_id -> module_type_body -> module_path -> env -> resolver