summaryrefslogtreecommitdiff
path: root/src/elab_env.sig
diff options
context:
space:
mode:
Diffstat (limited to 'src/elab_env.sig')
-rw-r--r--src/elab_env.sig5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/elab_env.sig b/src/elab_env.sig
index 1621722f..a5b8751a 100644
--- a/src/elab_env.sig
+++ b/src/elab_env.sig
@@ -71,7 +71,8 @@ signature ELAB_ENV = sig
val pushClass : env -> int -> env
val isClass : env -> Elab.con -> bool
- val resolveClass : (Elab.con -> Elab.con) -> env -> Elab.con -> Elab.exp option
+ val resolveClass : (Elab.con -> Elab.con) -> (Elab.con * Elab.con -> bool)
+ -> env -> Elab.con -> Elab.exp option
val listClasses : env -> (Elab.con * (Elab.con * Elab.exp) list) list
val pushERel : env -> string -> Elab.con -> env
@@ -118,4 +119,6 @@ signature ELAB_ENV = sig
val patBinds : env -> Elab.pat -> env
+ exception Bad of Elab.con * Elab.con
+
end