From caf010bca085bea65037d194c3eb21ca8b83c23b Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 28 Apr 2009 14:02:23 -0400
Subject: Preparing to allow views in SELECT FROM clauses

---
 src/elab_env.sig | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/elab_env.sig')

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
-- 
cgit v1.2.3